home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / new_file / extras / games / text_adv / pork / pork.all
Encoding:
Text File  |  1989-01-01  |  125.4 KB  |  5,055 lines
  1. TITLE
  2. COLORS WHITE YELLOW BLUE BLACK CYAN
  3.  
  4.  
  5. PORK I: The Great Underground Sewer System
  6.  
  7. Copywronged 1988, Version -4.26
  8.  
  9. The Author of the Original BASIC Game of PORK is Unknown
  10.  
  11. This Version was converted to AGT and greatly expanded by David Malmberg
  12.  
  13.  
  14. END_TITLE
  15.  
  16. INTRODUCTION
  17.  
  18. This adventure, PORK I, is a parody of ZORK I, THE GREAT UNDERGROUND EMPIRE
  19. which was written by 'Diabolical' Dave Lebling and 'Maniacal' Marc Blank and
  20. originally published by Infocom in 1981.  ZORK I has sold more copies than any
  21. other adventure game (and probably more copies than any other program --
  22. period).  It is truly a classic!  In writing PORK, I have tried to retain some
  23. of the cleverness, low cunning, and humor of ZORK -- while poking a little
  24. good-natured fun at it.
  25.  
  26. You do not need to have played ZORK to enjoy PORK.  However, previous
  27. experience with ZORK may give you some clues for solving some of PORK's
  28. puzzles -- then again, it may not.
  29.  
  30. END_INTRODUCTION
  31.  
  32. VERBS
  33. LIGHT BURN
  34. Dummy_Verb1 DESTROY BREAK MAIM DISFIGURE POKE
  35. Dummy_Verb2 GO
  36. Dummy_Verb3 SEARCH FIND
  37. Dummy_Verb4 WAVE
  38. Dummy_Verb5 GIVE
  39. Dummy_Verb6 SWIM
  40. Dummy_Verb7 SWING SLUG HIT SLOG
  41. Dummy_Verb8 COVER
  42. Dummy_Verb9 SMOKE USE INSERT
  43. Dummy_Verb10 FART
  44. Dummy_Verb11 SHOW
  45. Dummy_Verb12 SCRAMBLE
  46. Dummy_Verb13 PEACE HELLO HI LOVE
  47. Dummy_Verb14 DEBUG
  48. Dummy_Verb15 NO
  49. Dummy_Verb16 YES
  50. Dummy_Verb17 ULYSSES ODYSSEY FISH ODYSSEUS
  51. Dummy_Verb18 RUB
  52. Dummy_Verb19 WASH
  53. Dummy_Verb20 PET PAT HUG LOVE BEFRIEND
  54. Dummy_Verb21 KISS
  55. Dummy_Verb22 SAY
  56. Dummy_Verb23 SHAKE RATTLE
  57. Dummy_Verb24 FIX
  58. Dummy_Verb25 CLIMB
  59. Dummy_Verb26 JUMP
  60. Dummy_Verb27 MOVE LIFT
  61. Dummy_Verb28 PRAY SLEEP
  62. Dummy_Verb29 ECHO AHOY PLUGH XYZZY PLOVER AHRIMAN ARTICHOKE ZORK
  63. Dummy_Verb30 DIG
  64. Dummy_Verb31 RING
  65. Dummy_Verb32 OOPS
  66. END_VERBS
  67.  
  68.  
  69. #DEFINE {Nowhere} 0
  70. #DEFINE {Carried} 1
  71. #DEFINE {WEST} 4
  72. #DEFINE {Underground?} AtLocationGT {Funeral}
  73. #DEFINE {Total number of treasures} 13
  74. #DEFINE {Is a treasure?} NOUNPointsGT 4
  75.  
  76. MAXIMUM_SCORE 160
  77.  
  78.  
  79. COMMAND SAY
  80. PrintMessage "Go ahead, just spit it out!  There is no need to say 'SAY'!"
  81. DoneWithTurn
  82. END_COMMAND
  83.  
  84. ROOM {Inside House}
  85. Inside House
  86. EAST {East of House}
  87. DOWN {Smelly Cellar}
  88. END_ROOM
  89.  
  90. ROOM_DESCR {Inside House}
  91. You are inside of the house, which seems very beaten down.  There is a smashed
  92. window leading to the east (probably broken by a baseball).
  93. END_ROOM_DESCR
  94.  
  95. NOUN {Window}
  96. Window
  97. Broken
  98. There is a broken window.
  99. LOCATION {NoWhere}
  100. NOUN_SYNONYMS house peace hello hi
  101. END_NOUN
  102.  
  103. NOUN {Closed Trapped Door}
  104. Door
  105. Trapped
  106. There is a closed trapped door here.
  107. UNMOVABLE
  108. LOCATION {Inside House}
  109. NOUN_SYNONYMS gate
  110. END_NOUN
  111.  
  112. NOUN_DESCR {Closed Trapped Door}
  113. The door is trapped and closed.
  114. END_NOUN_DESCR
  115.  
  116. NOUN {Open Trap Door}
  117. Door
  118. Trap
  119. There is a open trap door here, which leads down to a smelly cellar.
  120. UNMOVABLE
  121. LOCATION {Nowhere}
  122. END_NOUN
  123.  
  124. NOUN_DESCR {Open Trap Door}
  125. The trap door is open.  You can see and smell a cellar below the trap door.
  126. END_NOUN_DESCR
  127.  
  128. COMMAND DOWN
  129. InRoom {Closed Trapped Door}
  130. PrintMessage "The door is trapped and closed -- so you can't go down."
  131. DoneWithTurn
  132. END_COMMAND
  133.  
  134. MESSAGE {It slams shut behind you}
  135. You hear the sound of the door slamming shut behind you and the bolt being
  136. locked in place.  You are now trapped in the smelly cellar.  No wonder, it was
  137. called a 'trapped door'.
  138. END_MESSAGE
  139.  
  140. COMMAND DOWN
  141. InRoom {Open Trap Door}
  142. PrintMessage {It slams shut behind you}
  143. BlankLine
  144. END_COMMAND
  145.  
  146. MESSAGE {It is now open}
  147. Oh, sorry about that -- I meant to say 'trap' door!  Anyway, it opens revealing
  148. a plush carpeted stairway leading down into a smelly cellar.
  149. END_MESSAGE
  150.  
  151. COMMAND OPEN DOOR
  152. InRoom {Closed Trapped Door}
  153. SwapLocations {Closed Trapped Door} {Open Trap Door}
  154. PrintMessage {It is now open}
  155. DoneWithTurn
  156. END_COMMAND
  157.  
  158. COMMAND CLOSE DOOR
  159. InRoom {Open Trap Door}
  160. SwapLocations {Closed Trapped Door} {Open Trap Door}
  161. PrintMessage "The door is now closed and trapped."
  162. DoneWithTurn
  163. END_COMMAND
  164.  
  165. TREASURE_ROOM {Inside House}
  166.  
  167. NOUN {Bank Vault}
  168. Vault
  169. Bank
  170. There is an open bank vault here.
  171. SIZE 1000
  172. WEIGHT 1000
  173. UNMOVABLE
  174. LOCATION {Inside House}
  175. CLOSABLE
  176. OPEN
  177. END_NOUN
  178.  
  179. NOUN_DESCR {Bank Vault}
  180. The bank vault door is open.  It looks like it is big enough to hold a lot of
  181. treasures and other goodies (HINT HINT).
  182. END_NOUN_DESCR
  183.  
  184. NOUN {Pork Guidebook}
  185. Guidebook
  186. PORK
  187. You see a book entitled "PORK Guidebook".
  188. SIZE 10
  189. WEIGHT 10
  190. LOCATION {Bank Vault}
  191. READABLE
  192. NOUN_SYNONYMS book hint hints
  193. END_NOUN
  194.  
  195. NOUN_DESCR {Pork Guidebook}
  196. The book is titled "PORK Guidebook".  It has a subtitle: "The PORKer's Book of
  197. Wit, Wisdom and Hints".  It looks like it might be helpful.
  198. END_NOUN_DESCR
  199.  
  200. FLAG {Has read AGT info}
  201.  
  202. COMMAND READ GUIDEBOOK
  203. FlagOFF {Has read AGT info}
  204. Present {Pork Guidebook}
  205. PrintMessage {AGT Info}
  206. TurnFlagON {Has read AGT info}
  207. DoneWithTurn
  208. END_COMMAND
  209.  
  210. COMMAND READ GUIDEBOOK
  211. FlagON {Has read AGT info}
  212. Present {Pork Guidebook}
  213. RandomMessage {Funny Saying #1} {Funny Saying #29}
  214. DoneWithTurn
  215. END_COMMAND
  216.  
  217. MESSAGE {It is a reverse timelock}
  218. Sorry, but you can't close the bank vault until yesterday morning (a reverse
  219. timelock.)  That's about -1000 turns away
  220. END_MESSAGE
  221.  
  222. COMMAND CLOSE VAULT
  223. InRoom {Bank Vault}
  224. PrintMessage {It is a reverse timelock}
  225. DoneWithTurn
  226. END_COMMAND
  227.  
  228. NOUN {Table}
  229. Table
  230. Wooden
  231. There is a wooden table against one wall.
  232. UNMOVABLE
  233. LOCATION {Inside House}
  234. END_NOUN
  235.  
  236. NOUN_DESCR {Table}
  237. The table is about 2 feet wide by about 6 feet long.  It has been pushed
  238. against one wall.
  239. END_NOUN_DESCR
  240.  
  241. NOUN {Handgun}
  242. Gun
  243. Hand
  244. There is a hand gun here.
  245. SIZE 25
  246. WEIGHT 25
  247. LOCATION {Inside House}
  248. CAN_SHOOT
  249. NUM_SHOTS 1000
  250. POSITION On the Table
  251. NOUN_SYNONYMS revolver .22 handgun
  252. END_NOUN
  253.  
  254. NOUN_DESCR {Handgun}
  255. The hand gun appears to be a small .22, made for defense against evil people
  256. who try to steal things from you (HINT HINT).  It is old and dusty too.
  257. A label reads `ACME Gun Company' on the side.
  258. END_NOUN_DESCR
  259.  
  260. NOUN {Catsup}
  261. Bottle
  262. Catsup
  263. You see a bottle of Catsup (or Ketchup -- if you prefer).
  264. SIZE 10
  265. WEIGHT 10
  266. EDIBLE
  267. DRINKABLE
  268. LOCATION {Inside House}
  269. POSITION On the Table
  270. NOUN_SYNONYMS catsup ketchup
  271. END_NOUN
  272.  
  273. NOUN_DESCR {Catsup}
  274. The bottle is the giant-economy size.  The label on the bottle proclaims:
  275. "Genuine Generic -- Your Guarantee of Cheap Mediocrity".
  276. END_NOUN_DESCR
  277.  
  278. NOUN {Rabbit's Foot}
  279. Foot
  280. Rabbit's
  281. There is a giant rabbit's foot here.
  282. SIZE 60
  283. WEIGHT 60
  284. LOCATION {Inside House}
  285. POSITION On the Table
  286. NOUN_SYNONYMS feet
  287. END_NOUN
  288.  
  289. NOUN_DESCR {Rabbit's Foot}
  290. The foot looks like it came from a mighty BIG rabbit.  I would sure hate to
  291. run into the sucker who belongs with this foot!
  292. END_NOUN_DESCR
  293.  
  294. MESSAGE {Rub it}
  295. You $VERB$ the rabbit's foot for a while, but nothing happens.
  296. END_MESSAGE
  297.  
  298. COMMAND RUB FOOT
  299. Present {Rabbit's Foot}
  300. PrintMessage {Rub it}
  301. DoneWithTurn
  302. END_COMMAND
  303.  
  304.  
  305. ROOM {North of House}
  306. North of House
  307. EAST {East of House}
  308. WEST {West of House}
  309. END_ROOM
  310.  
  311. ROOM_DESCR {North of House}
  312. You are north of the house.  There is not much to see here, except maybe for
  313. the house to the south.  Paths lead east and west.
  314. END_ROOM_DESCR
  315.  
  316.  
  317. ROOM {West of House}
  318. West of House
  319. LOCKED_DOOR
  320. NORTH {North of House}
  321. SOUTH {South of House}
  322. END_ROOM
  323.  
  324. ROOM_DESCR {West of House}
  325. You are west of the house.  The house has a boarded front door.  Paths lead
  326. north and south.
  327. END_ROOM_DESCR
  328.  
  329. STARTING_ROOM {West of House}
  330.  
  331. NOUN {Mailbox}
  332. Mailbox
  333. Metal
  334. A mailbox without a lid (which probably was take by vandals) is here.
  335. SIZE 1000
  336. WEIGHT 1000
  337. UNMOVABLE
  338. LOCATION {West of House}
  339. CLOSABLE
  340. OPEN
  341. NOUN_SYNONYMS box
  342. END_NOUN
  343.  
  344. NOUN_DESCR {Mailbox}
  345. The mailbox looks quite ordinary, except for the fact that it is missing
  346. its lid.  There is a letter inside addressed to you.
  347. END_NOUN_DESCR
  348.  
  349. NOUN {Letter}
  350. Letter
  351. small
  352. There is a letter addressed to you.
  353. SIZE 10
  354. WEIGHT 10
  355. LOCATION {Mailbox}
  356. END_NOUN
  357.  
  358. NOUN_DESCR {Letter}
  359. There is a letter addressed to you.
  360. END_NOUN_DESCR
  361.  
  362. MESSAGE {It is a letter bomb}
  363. But wait -- it is a letter bomb!  It blows up immediately, and you are blasted
  364. to tiny shreds.  (Remember, no one said solving this adventure was going to be
  365. easy or painless.)
  366. END_MESSAGE
  367.  
  368. COMMAND GET LETTER
  369. AtLocation {West of House}
  370. PrintMessage {It is a letter bomb}
  371. BlankLine
  372. GoToRoom {Funeral}
  373. DoneWithTurn
  374. END_COMMAND
  375.  
  376. COMMAND READ LETTER
  377. AtLocation {West of House}
  378. PrintMessage {It is a letter bomb}
  379. BlankLine
  380. GoToRoom {Funeral}
  381. DoneWithTurn
  382. END_COMMAND
  383.  
  384. COMMAND GO HOUSE
  385. AtLocation {West of House}
  386. PrintMessage "You follow the path to the east side of the house."
  387. BlankLine
  388. GoToRoom {East of House}
  389. DoneWithTurn
  390. END_COMMAND
  391.  
  392. COMMAND ENTER HOUSE
  393. AtLocation {West of House}
  394. PrintMessage "You follow the path to the east side of the house."
  395. BlankLine
  396. GoToRoom {East of House}
  397. DoneWithTurn
  398. END_COMMAND
  399.  
  400.  
  401. ROOM {East of House}
  402. East of House
  403. NORTH {North of House}
  404. SOUTH {South of House}
  405. EAST {Clearing}
  406. WEST {Inside House}
  407. END_ROOM
  408.  
  409. ROOM_DESCR {East of House}
  410. You are east of the house.  There is a house to the west (with a broken window
  411. smashed by a baseball leading in), and paths to the north, south, and east.
  412. END_ROOM_DESCR
  413.  
  414.  
  415. ROOM {South of House}
  416. South of House
  417. EAST {East of House}
  418. WEST {West of House}
  419. SOUTH {Thick Woods}
  420. END_ROOM
  421.  
  422. ROOM_DESCR {South of House}
  423. You are south of the house.  There is nothing of interest here, except for
  424. the house and trails leading east, west and south.
  425.  
  426. In the distance, you can hear the chirping of a song bird.
  427. END_ROOM_DESCR
  428.  
  429. ROOM {Thick Woods}
  430. Thick woods
  431. NORTH {South of House}
  432. ROOM_SYNONYMS CHANGE_LOCATION CLIMB GO
  433. KEY {Large trees}
  434. SPECIAL {Top of Tree}
  435. END_ROOM
  436.  
  437. ROOM_DESCR {Thick Woods}
  438. You are in the midst of a thick woods.  The ground is damp with dew.  The
  439. air is chilly and you shiver from the cold.  The only path leads north --
  440. back the way you came.
  441. END_ROOM_DESCR
  442.  
  443. NOUN {Large trees}
  444. trees
  445. large
  446. There are large trees here.
  447. LOCATION {Thick Woods}
  448. UNMOVABLE
  449. PLURAL
  450. NOUN_SYNONYMS TREE
  451. END_NOUN
  452.  
  453. NOUN_DESCR {Large trees}
  454. The trees are mostly large maples.  
  455. END_NOUN_DESCR
  456.  
  457. NOUN {Leaves}
  458. Leaves
  459. Lotsa
  460. There are a lot of leaves on the ground all around you.
  461. LOCATION {Thick Woods}
  462. WEIGHT 2
  463. SIZE 5
  464. PLURAL
  465. NOUN_SYNONYMS leave
  466. END_NOUN
  467.  
  468. NOUN_DESCR {Leaves}
  469. The leaves are mostly from maple trees.  They are showing lots of fall colors.
  470. Were you expecting something else, perhaps?
  471. END_NOUN_DESCR
  472.  
  473. COMMAND BURN LEAVES
  474. PrintMessage "A voice booms out, 'That would cause air pollution, turkey!!'"
  475. DoneWithTurn
  476. END_COMMAND
  477.  
  478. COMMAND NO
  479. PrintMessage "You don't need to be so negative, turkey!  It's just a game!'
  480. DoneWithTurn
  481. END_COMMAND
  482.  
  483. COMMAND YES
  484. PrintMessage "You don't say!  I wish I could be so positive!'
  485. DoneWithTurn
  486. END_COMMAND
  487.  
  488. SPECIAL {Top of Tree}
  489. You struggle up branch by branch till you reach the tallest part of the tree.
  490. END_SPECIAL
  491.  
  492. ROOM {Top of Tree}
  493. Top of Tree
  494. DOWN {Thick Woods}
  495. ROOM_SYNONYMS DOWN CLIMB
  496. END_ROOM
  497.  
  498. ROOM_DESCR {Top of Tree}
  499. You are perched somewhat precariously on a limb near the top of a tall tree.
  500. END_ROOM_DESCR
  501.  
  502. COMMAND JUMP
  503. AtLocation {Top of Tree}
  504. OR
  505. AtLocation {Triangular Room}
  506. OR
  507. AtLocation {1st Level}
  508. OR
  509. AtLocation {2nd Level}
  510. OR
  511. AtLocation {3rd Level}
  512. OR
  513. AtLocation {4th Level}
  514. PrintMessage "That is very dangerous.  You could get killed doing that.  Oops!"
  515. GoToRoom {Funeral}
  516. DoneWithTurn
  517. END_COMMAND
  518.  
  519. NOUN {Bird's Nest}
  520. Nest
  521. Bird's
  522. There is a bird's nest here.
  523. LOCATION {Top of Tree}
  524. WEIGHT 2
  525. SIZE 5
  526. CLOSABLE
  527. OPEN
  528. END_NOUN
  529.  
  530. NOUN_DESCR {Bird's Nest}
  531. The nest is made of twigs and is fairly small.
  532. END_NOUN_DESCR
  533.  
  534. NOUN {Golden Egg}
  535. egg
  536. golden
  537. You see a golden egg.
  538. LOCATION {Bird's Nest}
  539. EDIBLE
  540. POINTS 10
  541. END_NOUN
  542.  
  543. NOUN_DESCR {Golden Egg}
  544. The egg is made of gold.  It is not very heavy, so it must be hollow.  When
  545. you shake it, you can hear something inside.
  546. END_NOUN_DESCR
  547.  
  548. MESSAGE {You shake it}
  549. Shake, rattle and egg roll!!
  550. END_MESSAGE
  551.  
  552. COMMAND SHAKE EGG
  553. Present {Golden Egg}
  554. PrintMessage {You shake it}
  555. DoneWithTurn
  556. END_COMMAND
  557.  
  558. MESSAGE {Can't get the egg open}
  559. No matter how hard you try or what tools you use, you can't get the #!$%!@ing
  560. egg open.
  561. END_MESSAGE
  562.  
  563. COMMAND OPEN EGG
  564. Present {Golden Egg}
  565. PrintMessage {Can't get the egg open}
  566. DoneWithTurn
  567. END_COMMAND
  568.  
  569. COMMAND UNLOCK EGG
  570. Present {Golden Egg}
  571. PrintMessage {Can't get the egg open}
  572. DoneWithTurn
  573. END_COMMAND
  574.  
  575. COMMAND BREAK EGG
  576. Present {Golden Egg}
  577. PrintMessage {Can't get the egg open}
  578. DoneWithTurn
  579. END_COMMAND
  580.  
  581. ROOM {Clearing}
  582. Clearing
  583. SOUTH {Dangerous Cliff}
  584. WEST {East of House}
  585. END_ROOM
  586.  
  587. ROOM_DESCR {Clearing}
  588. You are in a clearing in a petrified forest.  Petrified trees stand all
  589. around.  You know, these trees had a wild party this morning, and now they're
  590. all stoned, along with my pet rock.  You really should have been there.
  591. END_ROOM_DESCR
  592.  
  593. MESSAGE {Trees are stoned}
  594. The trees are all too stoned to allow you to go that way.
  595. END_MESSAGE
  596.  
  597. COMMAND NORTH
  598. AtLocation {Clearing}
  599. PrintMessage {Trees are stoned}
  600. BlankLine
  601. DoneWithTurn
  602. END_COMMAND
  603.  
  604. COMMAND EAST
  605. AtLocation {Clearing}
  606. PrintMessage {Trees are stoned}
  607. BlankLine
  608. DoneWithTurn
  609. END_COMMAND
  610.  
  611. COMMAND UP
  612. AtLocation {Clearing}
  613. PrintMessage {Trees are stoned}
  614. BlankLine
  615. DoneWithTurn
  616. END_COMMAND
  617.  
  618. COMMAND DOWN
  619. AtLocation {Clearing}
  620. PrintMessage {Trees are stoned}
  621. BlankLine
  622. DoneWithTurn
  623. END_COMMAND
  624.  
  625.  
  626. ROOM {Dangerous Cliff}
  627. Dangerous Cliff
  628. NORTH {Clearing}
  629. DOWN {Beautiful Canyon}
  630. ROOM_SYNONYMS Down Scramble
  631. END_ROOM
  632.  
  633. ROOM_DESCR {Dangerous Cliff}
  634. You are at the top of a huge cliff, almost a whole 1000000000*10^.0000000001
  635. feet down!  Below, you can see the luscious canyon, with all of its wildlife
  636. dying off because of adventurer pollution.  You can go to the north, or
  637. scramble down the cliff with massive effort.
  638. END_ROOM_DESCR
  639.  
  640.  
  641. ROOM {Beautiful Canyon}
  642. Beautiful Canyon
  643. NORTH {Rainbow}
  644. UP {Dangerous Cliff}
  645. ROOM_SYNONYMS Up Scramble
  646. END_ROOM
  647.  
  648. ROOM_DESCR {Beautiful Canyon}
  649. You are at the bottom of the cliff, in a beautiful canyon.  However, when you
  650. arrive, all the dead animals flee from your horrid face.  This makes you sad,
  651. for you were in the mood for some good cruelty to animals.  You can scramble
  652. backup the cliff, or go north to see a rainbow.  There is something shining
  653. in the sun light at the end of the rainbow.  It looks like a pot of some kind.
  654. END_ROOM_DESCR
  655.  
  656. MESSAGE {Too far away}
  657. Sorry, but the $NOUN$ is too far away to $VERB$.
  658. END_MESSAGE
  659.  
  660. COMMAND GET POT
  661. AtLocation {Beautiful Canyon}
  662. NOT Present {Mary Jane}
  663. PrintMessage {Too far away}
  664. DoneWithTurn
  665. END_COMMAND
  666.  
  667. COMMAND EXAMINE POT
  668. AtLocation {Beautiful Canyon}
  669. NOT Present {Mary Jane}
  670. PrintMessage {Too far away}
  671. DoneWithTurn
  672. END_COMMAND
  673.  
  674.  
  675. FLAG {Has Rainbow Bonus}
  676.  
  677. MESSAGE {Get Rainbow Bonus}
  678. I am really glad you decided to leave the rainbow alone.  We all know how
  679. sissy they are (oops - bad choice of words.  Sorry if I offended you.)
  680. Anyway, I'm giving you 5 points because you avoided the rainbow!
  681. END_MESSAGE
  682.  
  683. COMMAND UP
  684. AtLocation {Beautiful Canyon}
  685. NOT FlagON {Has Rainbow Bonus}
  686. PrintMessage {Get Rainbow Bonus}
  687. BlankLine
  688. TurnFlagON {Has Rainbow Bonus}
  689. PlusScore 5
  690. END_COMMAND
  691.  
  692. COMMAND GO RAINBOW
  693. AtLocation {Beautiful Canyon}
  694. BlankLine
  695. GoToRoom {Rainbow}
  696. DoneWithTurn
  697. END_COMMAND
  698.  
  699. COMMAND SEARCH RAINBOW
  700. AtLocation {Beautiful Canyon}
  701. BlankLine
  702. GoToRoom {Rainbow}
  703. DoneWithTurn
  704. END_COMMAND
  705.  
  706. COMMAND EXAMINE RAINBOW
  707. AtLocation {Beautiful Canyon}
  708. BlankLine
  709. GoToRoom {Rainbow}
  710. DoneWithTurn
  711. END_COMMAND
  712.  
  713. NOUN {Rainbow NOUN}
  714. Rainbow
  715. Pretty
  716. There is rainbow here.
  717. LOCATION {Nowhere}
  718. END_NOUN
  719.  
  720. NOUN {Mary Jane}
  721. Pot
  722. Fine
  723. There is a pot full of pot here.  It looks mighty fine.
  724. SIZE 20
  725. WEIGHT 20
  726. LOCATION {Nowhere}
  727. EDIBLE
  728. POISONOUS
  729. POINTS 10
  730. NOUN_SYNONYMS Drugs drug dope reefer joint
  731. END_NOUN
  732.  
  733. VARIABLE {Joints Left}
  734.  
  735. NOUN_DESCR {Mary Jane}
  736. The pot looks real, probably grown in someone's back yard.  The pot it is in
  737. used to be used to carry gold, until it got promoted.
  738. There are #VAR{Joints Left}# joints left.
  739. END_NOUN_DESCR
  740.  
  741. MESSAGE {Wave money message}
  742. As you wave the bill, a man in a trench coat walks up to you and sets down a
  743. pot of pot.  He says for you to pay him later.  Before you can ask any
  744. questions, he disappears into a crowd (don't ask me how!)
  745. END_MESSAGE
  746.  
  747. COMMAND WAVE MONEY
  748. Present {$500 bill}
  749. AtLocation {Beautiful Canyon}
  750. PrintMessage {Wave money message}
  751. DropIt {Mary Jane}
  752. DoneWithTurn
  753. END_COMMAND
  754.  
  755. COMMAND WAVE ANY
  756. PrintMessage "Nothing happens.  (Oh well, you know how it is in this business.)"
  757. DoneWithTurn
  758. END_COMMAND
  759.  
  760.  
  761. ROOM {Rainbow}
  762. Rainbow
  763. KillPlayer
  764. END_ROOM
  765.  
  766. ROOM_DESCR {Rainbow}
  767. You decide to climb the rainbow, and avoid the elevator.  As you go up, you
  768. feel really happy and are glad you came this way.  Then, you even see Ronald
  769. McDonald doing a commercial.  But then - Grimace steps on the rainbow!  It
  770. collapses!
  771. END_ROOM_DESCR
  772.  
  773.  
  774. ROOM {Funeral}
  775. Funeral
  776. KillPlayer
  777. END_ROOM
  778.  
  779. ROOM_DESCR {Funeral}
  780. You find yourself at a funeral -- yours!!
  781.  
  782. A giant Grue is talking... 'Dearly behated, we are gathered here today to have
  783. a party, for the so-called adventurer of PORK had died.  I'm sure he'll hate
  784. us for celebrating his death, but still it's a good excuse to party.'
  785.  
  786. END_ROOM_DESCR
  787.  
  788. ROOM {Smelly Cellar}
  789. Smelly Cellar
  790. NORTH {By Sumo Room}
  791. UP {Inside House}
  792. LOCKED_DOOR
  793. END_ROOM
  794.  
  795. ROOM_DESCR {Smelly Cellar}
  796. You are in the cellar of the house.  It really reeks down here. The walls are
  797. bare.  There is a passage leading north (where the reek is coming from).
  798. Besides smelling awful, the northern passage looks quite dark and foreboding.
  799. Stairs lead up to a 'trapped' door.
  800. END_ROOM_DESCR
  801.  
  802. NOUN {Headache}
  803. Headache
  804. Excedrin
  805. UNMOVABLE
  806. LOCATION {Nowhere}
  807. END_NOUN
  808.  
  809. NOUN_DESCR {Headache}
  810. Oh .... oh.... your head hurts....oh....
  811. END_NOUN_DESCR
  812.  
  813. MESSAGE {Use your head}
  814. You race up the stairs at top speed.  Using you head as a battering ram, you
  815. finally break open the trap door.  However, bashing your head against the door
  816. has given you Excedrin headache #47.
  817. END_MESSAGE
  818.  
  819. COMMAND BREAK DOOR
  820. AtLocation {Smelly Cellar}
  821. ReDirectTo UP
  822. END_COMMAND
  823.  
  824. COUNTER {Turns with headache}
  825.  
  826. COMMAND UP
  827. AtLocation {Smelly Cellar}
  828. PrintMessage {Use your head}
  829. SendToRoom {headache} {carried}
  830. TurnCounterON {Turns with headache}
  831. BlankLine
  832. GoToRoom {Inside House}
  833. DoneWithTurn
  834. END_COMMAND
  835.  
  836. MESSAGE {You have to be kidding!}
  837. You have to be kidding!  That is ridiculous!
  838. END_MESSAGE
  839.  
  840. COMMAND DROP HEADACHE
  841. IsCarrying {Headache}
  842. PrintMessage {You have to be kidding!}
  843. DoneWithTurn
  844. END_COMMAND
  845.  
  846. NOUN {Brass unlit lantern}
  847. lantern
  848. brass
  849. There is a shiny brass lamp nearby.  It is off.
  850. NOUN_SYNONYMS lamp light
  851. LOCATION {Smelly Cellar}
  852. WEIGHT 10
  853. END_NOUN
  854.  
  855. NOUN_DESCR {Brass unlit lantern}
  856. The lamp runs on batteries and is currently turned off.
  857. END_NOUN_DESCR
  858.  
  859. MESSAGE {Batteries don't work}
  860. Sorry, but these batteries are too old and too corroded to be of much use.
  861. END_MESSAGE
  862.  
  863. COMMAND INSERT BATTERIES
  864. Present {Batteries}
  865. PrintMessage {Batteries don't work}
  866. DoneWithTurn
  867. END_COMMAND
  868.  
  869. COMMAND PUT BATTERIES IN LANTERN
  870. Present {Batteries}
  871. PrintMessage {Batteries don't work}
  872. DoneWithTurn
  873. END_COMMAND
  874.  
  875. NOUN {Shining lantern}
  876. lantern
  877. shining
  878. There is a lamp shining nearby.
  879. NOUN_SYNONYMS lamp light
  880. WEIGHT 10
  881. END_NOUN
  882.  
  883. NOUN_DESCR {Shining lantern}
  884. The lamp runs on batteries and is currently turned on.  It is shining
  885. brightly.
  886. END_NOUN_DESCR
  887.  
  888. MESSAGE {Your lamp is growing weaker}
  889. The batteries in your lamp are growing weaker.  They will only last for #VAR{Battery Life}#
  890. more turns!
  891. END_MESSAGE
  892.  
  893. MESSAGE {Your batteries are dead}
  894. Sorry, but your batteries are dead and there is no way to turn on the lamp.
  895. You could be in real trouble!
  896. END_MESSAGE
  897.  
  898. MESSAGE {You have no source of light}
  899. Sorry, but you have no source of light!
  900. END_MESSAGE
  901.  
  902. MESSAGE {Your lamp is now on}
  903. Your lamp is now shining brightly!
  904. END_MESSAGE
  905.  
  906. MESSAGE {Your lamp is now off}
  907. Your lamp is now off.
  908. END_MESSAGE
  909.  
  910. MESSAGE {Wrong adventure}
  911. Rubbing the electric lamp is not particularly rewarding.  Anyway, nothing
  912. exciting happens.  I think you must be thinking about some other adventure.
  913. END_MESSAGE
  914.  
  915. MESSAGE {Give hint about batteries}
  916. Your lamp is getting dim.  You'd best start wrapping this up, unless you can
  917. find some fresh batteries.  I seem to recall there's a vending machine in the
  918. maze.  Bring some coins with you.
  919. END_MESSAGE
  920.  
  921. MESSAGE {Your lamp has gone out}
  922. Your lamp has run out of power.
  923. END_MESSAGE
  924.  
  925. MESSAGE {No light - let's call it a day}
  926. There's not much point in just wandering around aimlessly, and you can't
  927. explore the cave without a working lamp.  So let's just call it a day.  Better
  928. luck next time!
  929. END_MESSAGE
  930.  
  931. FLAG {Lamp is ON}
  932. VARIABLE {Battery Life}
  933.  
  934. ;EXTINGUISH
  935.  
  936. COMMAND EXTINGUISH LAMP
  937. Present {Brass unlit lantern}
  938. PrintMessage {Your lamp is now off}
  939. DoneWithTurn
  940. END_COMMAND
  941.  
  942. COMMAND EXTINGUISH LAMP
  943. Present {Shining lantern}
  944. PrintMessage {Your lamp is now off}
  945. TurnFlagOFF {Lamp is ON}
  946. SwapLocations {Shining lantern} {Brass unlit lantern}
  947. DoneWithTurn
  948. END_COMMAND
  949.  
  950. COMMAND RUB LAMP
  951. Present {Shining lantern}
  952. OR
  953. Present {Brass unlit lantern}
  954. PrintMessage {Wrong adventure}
  955. DoneWithTurn
  956. END_COMMAND
  957.  
  958. ;LIGHT
  959.  
  960. COMMAND LIGHT LAMP
  961. Present {Shining lantern}
  962. PrintMessage {Your lamp is now on}
  963. DoneWithTurn
  964. END_COMMAND
  965.  
  966. COMMAND LIGHT LAMP
  967. NOT Present {Brass unlit lantern}
  968. PrintMessage {You have no source of light}
  969. DoneWithTurn
  970. END_COMMAND
  971.  
  972. COMMAND LIGHT LAMP
  973. Present {Brass unlit lantern}
  974. VariableGT {Battery Life} 0
  975. PrintMessage {Your lamp is now on}
  976. TurnFlagON {Lamp is ON}
  977. SwapLocations {Shining lantern} {Brass unlit lantern}
  978. DoneWithTurn
  979. END_COMMAND
  980.  
  981. COMMAND LIGHT LAMP
  982. Present {Brass unlit lantern}
  983. VariableEquals {Battery Life} 0
  984. PrintMessage {Your batteries are dead}
  985. DoneWithTurn
  986. END_COMMAND
  987.  
  988. COMMAND TURN OFF LAMP
  989. Present {Shining lantern}
  990. ReDirectTo EXTINGUISH LAMP
  991. END_COMMAND
  992.  
  993. COMMAND TURN ON LAMP
  994. Present {Brass unlit lantern}
  995. ReDirectTo LIGHT LAMP
  996. END_COMMAND
  997.  
  998.  
  999. ROOM {By Sumo Room}
  1000. Smelly Corridor
  1001. SOUTH {Smelly Cellar}
  1002. NORTH {Sumo Room}
  1003. LIGHT {Shining lantern}
  1004. END_ROOM
  1005.  
  1006. ROOM_DESCR {By Sumo Room}
  1007. You are in a smelly corridor.  You see a faint light behind you to the south.
  1008. The passage to the north leads into darkness.  A very strong odor is coming
  1009. from the north.
  1010. END_ROOM_DESCR
  1011.  
  1012. ROOM {Sumo Room}
  1013. Sumo Room
  1014. SOUTH {By Sumo Room}
  1015. EAST {E-W Passage}
  1016. WEST {Start of Polish Maze}
  1017. LIGHT {Shining lantern}
  1018. END_ROOM
  1019.  
  1020. ROOM_DESCR {Sumo Room}
  1021. You are in a large room that has pot holes all over it from a giant's
  1022. foot-steps.  Besides a horrible reek of you here, there are passages leading
  1023. south, east and west.
  1024. END_ROOM_DESCR
  1025.  
  1026. CREATURE {Live Sumo}
  1027. Sumo
  1028. huge
  1029. There is a huge (10000 pound) sumo wrestler here!
  1030. LOCATION {Sumo Room}
  1031. HOSTILE
  1032. THRESHOLD 1000
  1033. TIME_THRESH 1000
  1034. MAN
  1035. CREATURE_SYNONYMS wrestler
  1036. END_CREATURE
  1037.  
  1038. CREATURE_DESCR {Live Sumo}
  1039. There is a huge (10000 pound) sumo wrestler here!  He is (literally) blocking
  1040. all exits to the room.
  1041. END_CREATURE_DESCR
  1042.  
  1043. CREATURE {Dead Sumo}
  1044. Sumo
  1045. huge
  1046. In the corner, the sumo is sitting on himself.  He is quite dead.
  1047. LOCATION {Nowhere}
  1048. MAN
  1049. CREATURE_SYNONYMS wrestler body
  1050. END_CREATURE
  1051.  
  1052. CREATURE_DESCR {Dead Sumo}
  1053. The sumo is sitting on himself -- which is quite a feat.  He is dead.
  1054. END_CREATURE_DESCR
  1055.  
  1056. MESSAGE {Sumo blocking exits}
  1057. Come on, man -- you expect to do that with a 10000 pound sumo trying to crush
  1058. you?  Be real!!
  1059. END_MESSAGE
  1060.  
  1061. COMMAND GET SUMO
  1062. Present {Live Sumo}
  1063. PrintMessage {You have to be kidding!}
  1064. DoneWithTurn
  1065. END_COMMAND
  1066.  
  1067.  
  1068. ROOM {Start of Polish Maze}
  1069. Start of Polish Maze
  1070. NORTH {Hippy Room}
  1071. SOUTH {Polish Maze}
  1072. EAST {Sumo Room}
  1073. WEST {Polish Maze}
  1074. UP {Polish Maze}
  1075. DOWN {Polish Maze}
  1076. ENTER {Polish Maze}
  1077. EXIT {Polish Maze}
  1078. LIGHT {Shining lantern}
  1079. END_ROOM
  1080.  
  1081. ROOM_DESCR {Start of Polish Maze}
  1082. You are in the beginning room in a Polish Maze.  There is a passage to the
  1083. east (chicken!), a large passage to the north, and small crawlways leading in
  1084. all the other directions.  A big sign over the north passage says, `Go this
  1085. way!  Don't go anywhere else!  Please!  Go this way!'
  1086.  
  1087. Also, beyond the sign in the next room is a large greeting party, just waiting
  1088. for you to go north!!!  Besides, the little crawlways look icky and ugly to
  1089. boot.
  1090. END_ROOM_DESCR
  1091.  
  1092.  
  1093. MESSAGE {Smart move!}
  1094. As you wisely decide to travel north, many telegrams from well wishers all over
  1095. the planet congratulate you on getting out of the Polish Maze.  It's taken more
  1096. lives than the Royal Puzzle.  Nice job.
  1097. END_MESSAGE
  1098.  
  1099. COMMAND NORTH
  1100. AtLocation {Start of Polish Maze}
  1101. PrintMessage {Smart move!}
  1102. END_COMMAND
  1103.  
  1104.  
  1105. ROOM {Polish Maze}
  1106. Polish Maze
  1107. NORTH {End of Polish Maze}
  1108. SOUTH {Polish Maze}
  1109. EAST {Polish Maze}
  1110. WEST {Polish Maze}
  1111. UP {Polish Maze}
  1112. DOWN {Polish Maze}
  1113. ENTER {Polish Maze}
  1114. EXIT {Polish Maze}
  1115. LIGHT {Shining lantern}
  1116. END_ROOM
  1117.  
  1118. ROOM_DESCR {Polish Maze}
  1119. You are in a little room in a Polish Maze.  There is a large passageway
  1120. leading north.  There are little crawlways leading off in all other
  1121. directions.  It looks like you will never get out of here.  (I told you not to
  1122. go in here.  Maybe next time, you'll listen.)
  1123. END_ROOM_DESCR
  1124.  
  1125. NOUN {Polish Maze Sign}
  1126. Sign
  1127. Large
  1128. There is a large sign on the wall.
  1129. UNMOVABLE
  1130. LOCATION {Polish Maze}
  1131. READABLE
  1132. NOUN_SYNONYMS writing statue berez joel idol idols
  1133. END_NOUN
  1134.  
  1135. NOUN_DESCR {Polish Maze Sign}
  1136. The sign is about 2 feet high by 3 feet wide.  The writing is rather sloppy.
  1137. END_NOUN_DESCR
  1138.  
  1139. COMMAND READ SIGN
  1140. AtLocation {Polish Maze}
  1141. RandomMessage {Funny Saying #1} {Funny Saying #29}
  1142. DoneWithTurn
  1143. END_COMMAND
  1144.  
  1145. MESSAGE {You wander around for a while}
  1146. You wander around in the maze for a while and find yourself...
  1147. END_MESSAGE
  1148.  
  1149. ROOM {End of Polish Maze}
  1150. Escaped from the Polish Maze
  1151. NORTH {Hippy Room}
  1152. SOUTH {Polish Maze}
  1153. EAST {Polish Maze}
  1154. WEST {Polish Maze}
  1155. UP {Polish Maze}
  1156. DOWN {Polish Maze}
  1157. ENTER {Polish Maze}
  1158. EXIT {Polish Maze}
  1159. LIGHT {Shining lantern}
  1160. END_ROOM
  1161.  
  1162. ROOM_DESCR {End of Polish Maze}
  1163. You have escaped from the Polish Maze.  There is a large passage to the north,
  1164. and small crawlways leading in all the other directions.  A big sign over the
  1165. north passage says, `Go this way!  Don't go anywhere else!  Please!  Go this
  1166. way!'
  1167. END_ROOM_DESCR
  1168.  
  1169.  
  1170. ROOM {Hippy Room}
  1171. Hippy Room
  1172. SOUTH {Start of Polish Maze}
  1173. UP {Tax Collector's Lair}
  1174. LIGHT {Shining lantern}
  1175. END_ROOM
  1176.  
  1177. ROOM_DESCR {Hippy Room}
  1178. You are in a room with wild paintings on the wall, filled with flowers.  The
  1179. atmosphere is very free and wild.  There are stairs leading up, and a passage
  1180. that goes south into a huge maze.
  1181. END_ROOM_DESCR
  1182.  
  1183. CREATURE {Normal Hippy}
  1184. Hippy
  1185. Peaceful
  1186. There is a hippy guarding the stairway, who constantly chants "Peace!"
  1187. LOCATION {Hippy Room}
  1188. MAN
  1189. END_CREATURE
  1190.  
  1191. CREATURE_DESCR {Normal Hippy}
  1192. The hippy is constantly chanting "Peace!"  He has a string of "love beads" and
  1193. is holding a bunch of scraggly flowers.
  1194. END_CREATURE_DESCR
  1195.  
  1196. CREATURE {Wasted Hippy}
  1197. Hippy
  1198. Wasted
  1199. There is a hippy here, who is really wasted and can't even say "Peace!"
  1200. LOCATION {Nowhere}
  1201. MAN
  1202. END_CREATURE
  1203.  
  1204. CREATURE_DESCR {Wasted Hippy}
  1205. There is a hippy here, who is really wasted and can't even say "Peace!"  He has
  1206. a string of "love beads" and is smelling a bunch of scraggly flowers.
  1207. END_CREATURE_DESCR
  1208.  
  1209. MESSAGE {Hippy blocking UP}
  1210. The hippy won't let you pass.  He shoves a flower in your face -- which you
  1211. reject.
  1212. END_MESSAGE
  1213.  
  1214. COMMAND UP
  1215. InRoom {Normal Hippy}
  1216. PrintMessage {Hippy blocking UP}
  1217. DoneWithTurn
  1218. END_COMMAND
  1219.  
  1220. MESSAGE {Attack Hippy message}
  1221. You get ready to perform the violent act, but just can't bring yourself to do
  1222. it against this peace lover.
  1223. END_MESSAGE
  1224.  
  1225. COMMAND ATTACK HIPPY
  1226. InRoom {Normal Hippy}
  1227. OR
  1228. InRoom {Wasted Hippy}
  1229. PrintMessage {Attack Hippy message}
  1230. DoneWithTurn
  1231. END_COMMAND
  1232.  
  1233. COMMAND SHOOT HIPPY
  1234. InRoom {Normal Hippy}
  1235. OR
  1236. InRoom {Wasted Hippy}
  1237. PrintMessage {Attack Hippy message}
  1238. DoneWithTurn
  1239. END_COMMAND
  1240.  
  1241. MESSAGE {Hippy makes peace sign}
  1242. The hippy makes a 'peace' sign by extending both his fore finger and his middle
  1243. finger in the air.  Then he lowers his fore finger.
  1244. END_MESSAGE
  1245.  
  1246. COMMAND PEACE
  1247. InRoom {Normal Hippy}
  1248. OR
  1249. InRoom {Wasted Hippy}
  1250. PrintMessage {Hippy makes peace sign}
  1251. DoneWithTurn
  1252. END_COMMAND
  1253.  
  1254. COMMAND PEACE
  1255. PrintMessage "OK, $VERB$ to you, too!"
  1256. DoneWithTurn
  1257. END_COMMAND
  1258.  
  1259. COMMAND GIVE POT TO HIPPY
  1260. Present {Mary Jane}
  1261. InRoom {Normal Hippy}
  1262. PrintMessage "The hippy gratefully takes the pot, and starts to smoke it."
  1263. SwapLocations {Normal Hippy} {Wasted Hippy}
  1264. DoneWithTurn
  1265. END_COMMAND
  1266.  
  1267. COMMAND GIVE POT TO HIPPY
  1268. NOT Present {Mary Jane}
  1269. InRoom {Normal Hippy}
  1270. PrintMessage "You don't even have any pot, bucko!?"
  1271. DoneWithTurn
  1272. END_COMMAND
  1273.  
  1274. COMMAND GIVE POT TO HIPPY
  1275. Present {Mary Jane}
  1276. InRoom {Wasted Hippy}
  1277. PrintMessage "The hippy is already high.  Any higher and he'll be on the moon."
  1278. DoneWithTurn
  1279. END_COMMAND
  1280.  
  1281.  
  1282. ROOM {Tax Collector's Lair}
  1283. Tax Collector's Lair
  1284. DOWN {Hippy Room}
  1285. LIGHT {Shining lantern}
  1286. END_ROOM
  1287.  
  1288. ROOM_DESCR {Tax Collector's Lair}
  1289. You are in the lair of a bad-breath breathing tax collector.  Lying around the
  1290. room are huge piles of papers, bills, and old tax forms.  You can leave by
  1291. going down.
  1292. END_ROOM_DESCR
  1293.  
  1294. NOUN {Tax Exemption Form}
  1295. Form
  1296. Exemption
  1297. There is a `One-Hour Tax exemption' form here.
  1298. SIZE 20
  1299. WEIGHT 20
  1300. LOCATION {Tax Collector's Lair}
  1301. READABLE
  1302. POINTS 10
  1303. NOUN_SYNONYMS FORMS
  1304. END_NOUN
  1305.  
  1306. NOUN_DESCR {Tax Exemption Form}
  1307. The form says this: `Tax exemption for one hour.'  It may be used wherever tax
  1308. exemption forms are honored, except in all countries where adventurers exist.
  1309. To redeem this form, take it to...
  1310. END_NOUN_DESCR
  1311.  
  1312. TEXT {Tax Exemption Form}
  1313. The form says, `Tax exemption for one hour.'
  1314. END_TEXT
  1315.  
  1316. CREATURE {Tax Collector}
  1317. Collector
  1318. Tax
  1319. There is a mean, cruel, sadistic tax collector here!
  1320. LOCATION {Tax Collector's Lair}
  1321. HOSTILE
  1322. THRESHOLD 1000
  1323. TIME_THRESH 1000
  1324. MAN
  1325. CREATURE_SYNONYMS MAN
  1326. END_CREATURE
  1327.  
  1328. CREATURE_DESCR {Tax Collector}
  1329. The tax collector has very bad breath and looks mean, cruel, and sadistic.
  1330. All in all, he is not a pleasant fellow.
  1331. END_CREATURE_DESCR
  1332.  
  1333. CREATURE {Dead Tax Collector}
  1334. Collector
  1335. Tax
  1336. The body of the mean tax collector is buried under a huge pile of papers.
  1337. LOCATION {Nowhere}
  1338. MAN
  1339. CREATURE_SYNONYMS body man
  1340. END_CREATURE
  1341.  
  1342. CREATURE_DESCR {Dead Tax Collector}
  1343. The body of a mean, cruel sadistic tax collector is here, buried under a huge
  1344. pile of papers.  He is very dead!
  1345. END_CREATURE_DESCR
  1346.  
  1347. MESSAGE {You'll get taxed}
  1348. Do you really expect to do that without being taxed?  Come on now!
  1349. END_MESSAGE
  1350.  
  1351. COMMAND HELP
  1352. Present {Tax Collector}
  1353. PrintMessage {You'll get taxed}
  1354. DoneWithTurn
  1355. END_COMMAND
  1356.  
  1357. COMMAND GET
  1358. Present {Tax Collector}
  1359. PrintMessage {You'll get taxed}
  1360. DoneWithTurn
  1361. END_COMMAND
  1362.  
  1363. COMMAND SAVE
  1364. Present {Tax Collector}
  1365. PrintMessage {You'll get taxed}
  1366. DoneWithTurn
  1367. END_COMMAND
  1368.  
  1369. COMMAND INVENTORY
  1370. Present {Tax Collector}
  1371. PrintMessage {You'll get taxed}
  1372. DoneWithTurn
  1373. END_COMMAND
  1374.  
  1375. COMMAND LIST EXITS
  1376. Present {Tax Collector}
  1377. PrintMessage {You'll get taxed}
  1378. DoneWithTurn
  1379. END_COMMAND
  1380.  
  1381. COMMAND TAKE FORM
  1382. Present {Tax Collector}
  1383. PrintMessage "You don't really want those -- believe me!"
  1384. DoneWithTurn
  1385. END_COMMAND
  1386.  
  1387. ROOM {E-W Passage}
  1388. E-W Passage
  1389. EAST {Junction}
  1390. WEST {Sumo Room}
  1391. LIGHT {Shining lantern}
  1392. END_ROOM
  1393.  
  1394. ROOM_DESCR {E-W Passage}
  1395. You are in an East-West passage.  There is a large sign here that says `Get a
  1396. piece of the rock' - but you, puzzled, can't see any rock here.
  1397. END_ROOM_DESCR
  1398.  
  1399. NOUN {Batteries}
  1400. Batteries
  1401. Dead
  1402. There are some dead batteries here.  They look very old and are corroded.
  1403. NOUN_SYNONYMS battery
  1404. LOCATION {E-W Passage}
  1405. WEIGHT 5
  1406. SIZE 5
  1407. END_NOUN
  1408.  
  1409. NOUN_DESCR {Batteries}
  1410. They still look very old and corroded.
  1411. END_NOUN_DESCR
  1412.  
  1413.  
  1414. ROOM {Junction}
  1415. Junction
  1416. NORTH {Lake Shore}
  1417. SOUTH {North LONG Corridor}
  1418. EAST {Loud Room With Band}
  1419. WEST {E-W Passage}
  1420. LIGHT {Shining lantern}
  1421. END_ROOM
  1422.  
  1423. ROOM_DESCR {Junction}
  1424. You are at the junction of four corridors.  An ad on the wall reads `Buy your
  1425. new solar powered lantern today!  Never need batteries again!'  There are
  1426. passages leading north, south, east, and west.  There seems to be a VERY long
  1427. corridor to the south, and from the east you can hear a horrible noise, like
  1428. someone torturing a cow.
  1429. END_ROOM_DESCR
  1430.  
  1431. VARIABLE {matches left}
  1432.  
  1433. NOUN {matches}
  1434. Matches
  1435. Wooden
  1436. There are some matches here.
  1437. SIZE 5
  1438. WEIGHT 5
  1439. LOCATION {Junction}
  1440. PLURAL
  1441. NOUN_SYNONYMS match
  1442. END_NOUN
  1443.  
  1444. NOUN_DESCR {matches}
  1445. The matches are just that.  Wooden matches.  Not long ones or fancy matches,
  1446. just plain old regular matches.  There are #VAR{matches left}# matches.
  1447. END_NOUN_DESCR
  1448.  
  1449. COMMAND EXAMINE MATCHES
  1450. VariableEquals {matches left} 1
  1451. PrintMessage "There is only one match left.  Don't waste it!"
  1452. DoneWithTurn
  1453. END_COMMAND
  1454.  
  1455.  
  1456. ROOM {North LONG Corridor}
  1457. LONG Corridor
  1458. NORTH {Junction}
  1459. SOUTH {middle LONG Corridor}
  1460. LIGHT {Shining lantern}
  1461. END_ROOM
  1462.  
  1463. ROOM_DESCR {North LONG Corridor}
  1464. You are at the north end of a long corridor.  The end is not visible to the
  1465. south.  You can go south, further into the corridor, or north to the junction.
  1466. END_ROOM_DESCR
  1467.  
  1468. MESSAGE {North to Middle}
  1469. You set off on the long journey south, and walk for about an hour.
  1470. END_MESSAGE
  1471.  
  1472. COMMAND SOUTH
  1473. AtLocation {North LONG Corridor}
  1474. PrintMessage {North to Middle}
  1475. BlankLine
  1476. END_COMMAND
  1477.  
  1478. ROOM {Middle LONG Corridor}
  1479. LONG Corridor
  1480. NORTH {North LONG Corridor}
  1481. SOUTH {South LONG Corridor}
  1482. LIGHT {Shining lantern}
  1483. END_ROOM
  1484.  
  1485. ROOM_DESCR {Middle LONG Corridor}
  1486. You are in the middle of an extremely long corridor.  It extends forever to
  1487. the north and to the south.  Besides that, this place is pretty boring.
  1488. END_ROOM_DESCR
  1489.  
  1490. MESSAGE {Middle to South}
  1491. After a brief pause for rest, you set off to the south and travel for a while.
  1492. END_MESSAGE
  1493.  
  1494. COMMAND SOUTH
  1495. AtLocation {Middle LONG Corridor}
  1496. PrintMessage {Middle to South}
  1497. BlankLine
  1498. END_COMMAND
  1499.  
  1500. MESSAGE {Middle to North}
  1501. After a brief pause for rest, you set off to the north and travel for a while.
  1502. END_MESSAGE
  1503.  
  1504. COMMAND NORTH
  1505. AtLocation {Middle LONG Corridor}
  1506. PrintMessage {Middle to North}
  1507. BlankLine
  1508. END_COMMAND
  1509.  
  1510.  
  1511. ROOM {South LONG Corridor}
  1512. LONG Corridor
  1513. NORTH {Middle LONG Corridor}
  1514. SOUTH {Mirror Room}
  1515. LIGHT {Shining lantern}
  1516. END_ROOM
  1517.  
  1518. ROOM_DESCR {South LONG Corridor}
  1519. You are at the south end of the monstrous corridor.  This is a really boring
  1520. place, because hardly anyone has the persistence necessary to walk the entire
  1521. corridor.  The corridor looms to the north, and a room lies to the south.
  1522. END_ROOM_DESCR
  1523.  
  1524. NOUN {Tennis Shoes}
  1525. Shoes
  1526. Tennis
  1527. There are some old, ugly, dirty tennis shoes here.
  1528. WEARABLE
  1529. LOCATION {South LONG Corridor}
  1530. NOUN_SYNONYMS shoe
  1531. PLURAL
  1532. END_NOUN
  1533.  
  1534. NOUN_DESCR {Tennis Shoes}
  1535. The tennis shoes are very old and quite ugly and dirty.  You would not be
  1536. caught dead in them (HINT HINT).  You can just make out the brand-name
  1537. 'Non-Skid'.
  1538. END_NOUN_DESCR
  1539.  
  1540. MESSAGE {South to Middle}
  1541. You muster up all the strength you have, and begin the long journey to the
  1542. north.
  1543. END_MESSAGE
  1544.  
  1545. COMMAND NORTH
  1546. AtLocation {South LONG Corridor}
  1547. PrintMessage {South to Middle}
  1548. BlankLine
  1549. END_COMMAND
  1550.  
  1551. ROOM {Mirror Room}
  1552. Mirror Room
  1553. NORTH {South LONG Corridor}
  1554. EAST {Worship Room}
  1555. SOUTH {Small Room}
  1556. LIGHT {Shining lantern}
  1557. END_ROOM
  1558.  
  1559. ROOM_DESCR {Mirror Room}
  1560. You are in a room, with a huge mirror covering the south wall. It is really
  1561. nice and shiny.  There are passages to the north, the end not visible, and to
  1562. the east.
  1563. END_ROOM_DESCR
  1564.  
  1565. NOUN {broken mirror}
  1566. mirror
  1567. broken
  1568. The mirror is shattered, revealing a southern passage behind it.
  1569. UNMOVABLE
  1570. LOCATION {nowhere}
  1571. NOUN_SYNONYMS glass piece pieces
  1572. END_NOUN
  1573.  
  1574. NOUN_DESCR {broken mirror}
  1575. The mirror is shattered into a zillion pieces.  Behind the biggest pieces, you
  1576. can see a passage to the south.
  1577. END_NOUN_DESCR
  1578.  
  1579. COMMAND SOUTH
  1580. AtLocation {mirror room}
  1581. NOT InRoom {broken mirror}
  1582. PrintMessage "Sorry, but you can't go that way."
  1583. DoneWithTurn
  1584. END_COMMAND
  1585.  
  1586. MESSAGE {Mirror Breaks}
  1587. As you look into the mirror, the mirror shatters into a zillion pieces.  Behind
  1588. the biggest pieces, you can see a passage to the south.
  1589. END_MESSAGE
  1590.  
  1591. COMMAND EXAMINE MIRROR
  1592. AtLocation {mirror room}
  1593. NOT InRoom {Broken mirror}
  1594. DropIt {broken mirror}
  1595. PrintMessage {Mirror breaks}
  1596. DoneWithTurn
  1597. END_COMMAND
  1598.  
  1599. COMMAND RUB MIRROR
  1600. AtLocation {mirror room}
  1601. PrintMessage "What are you some kind of weirdo??  How kinky can you get?"
  1602. DoneWithTurn
  1603. END_COMMAND
  1604.  
  1605. COMMAND BREAK MIRROR
  1606. AtLocation {mirror room}
  1607. PrintMessage "What are you some kind of weirdo??  That's bad luck!"
  1608. DoneWithTurn
  1609. END_COMMAND
  1610.  
  1611. ROOM {Small Room}
  1612. Small Room
  1613. NORTH {Mirror Room}
  1614. EAST {Bat Room}
  1615. WEST {Cyclops Room}
  1616. LIGHT {Shining lantern}
  1617. END_ROOM
  1618.  
  1619. ROOM_DESCR {Small Room}
  1620. You are in an empty, small room.  The shattered mirror passage leads to the
  1621. north, and another rooms lie to the east and west.
  1622. END_ROOM_DESCR
  1623.  
  1624. ROOM {Cyclops Room}
  1625. Cyclops Room
  1626. EAST {Small Room}
  1627. UP {Wash Room}
  1628. LIGHT {Shining lantern}
  1629. END_ROOM
  1630.  
  1631. ROOM_DESCR {Cyclops Room}
  1632. This is a very messy room.  There are bloodstains on the walls.  There is an
  1633. exit to the east and stairs leading up.
  1634. END_ROOM_DESCR
  1635.  
  1636. NOUN {Cyclops Sign}
  1637. Sign
  1638. Bloodstained
  1639. There is a large bloodstained sign on the west wall.
  1640. UNMOVABLE
  1641. LOCATION {Cyclops Room}
  1642. READABLE
  1643. NOUN_SYNONYMS writing
  1644. END_NOUN
  1645.  
  1646. NOUN_DESCR {Cyclops Sign}
  1647. The sign is quite bloodstained.  The writing is rather small and hard to read.
  1648. END_NOUN_DESCR
  1649.  
  1650. TEXT {Cyclops Sign}
  1651. As everyone knows from Greek mythology or from reading Homer's Odyssey, the
  1652. original cyclops was killed by Ulysses.  The original cyclops that Ulysses
  1653. slew was this cyclops' father and this one is scared to death of the mere
  1654. thought of ULYSSES (HINT HINT).
  1655. END_TEXT
  1656.  
  1657. COMMAND READ SIGN
  1658. AtLocation {Cyclops Room}
  1659. Present {Drunk Cyclops}
  1660. RandomMessage {Funny Saying #1} {Funny Saying #29}
  1661. DoneWithTurn
  1662. END_COMMAND
  1663.  
  1664.  
  1665. CREATURE {Live Cyclops}
  1666. Cyclops
  1667. mutant
  1668. There is a mutant cyclops in the center of the room.
  1669. LOCATION {Cyclops Room}
  1670. HOSTILE
  1671. THRESHOLD 1000
  1672. TIME_THRESH 1000
  1673. MAN
  1674. CREATURE_SYNONYMS beast mutant
  1675. END_CREATURE
  1676.  
  1677. CREATURE_DESCR {Live Cyclops}
  1678. For a cyclops, this one is horribly deformed and is obviously a mutant.  He
  1679. has two baby-blue eyes -- one on each side of his nose.  With those
  1680. baby-blues, he looks just like Paul Newman.  He eyes you (with both eyes)
  1681. hungrily and licks his lips.  He smiles and says, "You're just in time for
  1682. dinner!"
  1683. END_CREATURE_DESCR
  1684.  
  1685. CREATURE {Drunk Cyclops}
  1686. Cyclops
  1687. drunk
  1688. The cyclops is snoring peacefully in the corner of the room.
  1689. LOCATION {Nowhere}
  1690. MAN
  1691. CREATURE_SYNONYMS beast body
  1692. END_CREATURE
  1693.  
  1694. CREATURE_DESCR {Drunk Cyclops}
  1695. The cyclops is snoring peacefully in the corner of the room.  He looks like he
  1696. will sleep for the rest of the game.  Boy Oh Boy!  Are you ever lucky!
  1697. END_CREATURE_DESCR
  1698.  
  1699. MESSAGE {Cyclops blocking exits}
  1700. Come on, man -- do you really expect that he is going to let you do that when
  1701. it is dinner time.  Be real!!
  1702. END_MESSAGE
  1703.  
  1704. COMMAND GET CYCLOPS
  1705. AtLocation {Cyclops Room}
  1706. PrintMessage {You have to be kidding!}
  1707. DoneWithTurn
  1708. END_COMMAND
  1709.  
  1710. MESSAGE {Cyclops gets drunk}
  1711. As everyone knows from Greek mythology or from reading Homer's Odyssey, the
  1712. original cyclops was killed by Ulysses.  The way that Ulysses killed the
  1713. cyclops was to give him wine to get him drunk and then he poked out the
  1714. cyclops' eye.  You are not that violent, you just intended to get him drunk.
  1715.  
  1716. The cyclops sucks up some of the juice of the grape and then crawls over into
  1717. the corner of the room and goes to sleep,
  1718. END_MESSAGE
  1719.  
  1720. MESSAGE {Cyclops beats you senseless}
  1721. The cyclops laughs and asks, "Do you really think that I am dumb enough to be
  1722. afraid of a mere word like '$VERB$'?  What kind of dummy do you think I am?"
  1723. At that point, the cyclops proceeds to beat you to a bloody pulp.  Then he
  1724. leaves the room muttering something under his breath about "Some adventurers
  1725. are just too dumb to live to play again!"
  1726.  
  1727. After a very long time, you finally recover your strength.  You discover that
  1728. the cyclops has reduced your score by 10 points (a stupidity penalty).  Your
  1729. body and your ego are both bruised.  However, you are alive.
  1730. END_MESSAGE
  1731.  
  1732. COMMAND ULYSSES
  1733. InRoom {Live Cyclops}
  1734. PrintMessage {Cyclops beats you senseless}
  1735. Destroy {Live Cyclops}
  1736. MinusScore 10
  1737. DoneWithTurn
  1738. END_COMMAND
  1739.  
  1740. COMMAND GIVE WINE TO CYCLOPS
  1741. Present {Wine}
  1742. InRoom {Live Cyclops}
  1743. PrintMessage {Cyclops gets drunk}
  1744. SwapLocations {Live Cyclops} {Drunk Cyclops}
  1745. DoneWithTurn
  1746. END_COMMAND
  1747.  
  1748. COMMAND GIVE POT TO ANY
  1749. Present {Mary Jane}
  1750. ObjectPresent
  1751. PrintMessage "The $OBJECT$ shows you his "Just Say NO" button!"
  1752. DoneWithTurn
  1753. END_COMMAND
  1754.  
  1755.  
  1756. ROOM {Wash Room}
  1757. Wash Room
  1758. NORTH {Grue's Lair}
  1759. DOWN {Cyclops Room}
  1760. LIGHT {Shining lantern}
  1761. END_ROOM
  1762.  
  1763. ROOM_DESCR {Wash Room}
  1764. You are in the 'Wash' room.  There is a passage to the north and stairs
  1765. leading down.
  1766. END_ROOM_DESCR
  1767.  
  1768. NOUN {Washer}
  1769. Machine
  1770. Washing
  1771. Against the wall, there is a washing machine.
  1772. SIZE 100
  1773. WEIGHT 100
  1774. UNMOVABLE
  1775. LOCATION {Wash Room}
  1776. CLOSABLE
  1777. OPEN
  1778. OFF
  1779. TURNABLE
  1780. NOUN_SYNONYMS washer JulyTag
  1781. END_NOUN
  1782.  
  1783. NOUN_DESCR {Washer}
  1784. The washing machine is a "JulyTag" brand.  It looks like it is broken.
  1785. END_NOUN_DESCR
  1786.  
  1787. TURN_DESCR {Washer}
  1788. You try to start the washing machine, but are unsuccessful.
  1789. END_TURN_DESCR
  1790.  
  1791. COMMAND FIX ANY
  1792. NOUNPresent
  1793. PrintMessage "Sorry, but you don't have the correct tools to fix the $NOUN$."
  1794. DoneWithTurn
  1795. END_COMMAND
  1796.  
  1797. NOUN {Coal}
  1798. Coal
  1799. Black
  1800. You see a piece of black coal here.
  1801. SIZE 20
  1802. WEIGHT 20
  1803. LOCATION {NoWhere}
  1804. POINTS 10
  1805. NOUN_SYNONYMS piece carbon lump
  1806. END_NOUN
  1807.  
  1808. NOUN_DESCR {coal}
  1809. The lump of coal is very clean (for a piece of coal, that is).
  1810. END_NOUN_DESCR
  1811.  
  1812. MESSAGE {Out pops a piece of coal}
  1813. You finally manage to turn on the washing machine.  It wheerrs, bangs, bumps
  1814. and belches for a few moments and the diamond finally disappears from sight.
  1815. However, out of the bottom of the washing machine pops a lump of black coal.
  1816. The coal is quite shiny.
  1817. END_MESSAGE
  1818.  
  1819. COMMAND WASH DIAMOND
  1820. Present {Washer}
  1821. IsLocated {Diamond} {Washer}
  1822. PrintMessage {Out pops a piece of coal}
  1823. Destroy {Diamond}
  1824. DropIt {Coal}
  1825. DoneWithTurn
  1826. END_COMMAND
  1827.  
  1828. COMMAND WASH ANY
  1829. PrintMessage "Ha!  Ha!  Ha!  The $NOUN$ isn't even dirty!"
  1830. DoneWithTurn
  1831. END_COMMAND
  1832.  
  1833.  
  1834. ROOM {Grue's Lair}
  1835. Grue's Lair
  1836. SOUTH {Wash Room}
  1837. END_ROOM
  1838.  
  1839. ROOM_DESCR {Grue's Lair}
  1840. You are in the lair of the infamous Grue.  The walls of the room have a
  1841. strange iridescent glow.   The only exit is to the south.
  1842. END_ROOM_DESCR
  1843.  
  1844. CREATURE {Grue}
  1845. Grue
  1846. Infamous
  1847. The infamous Grue is here.  He seems rather timid, actually.
  1848. LOCATION {Grue's Lair}
  1849. MAN
  1850. GROUPMEMBER
  1851. CREATURE_SYNONYMS beast
  1852. END_CREATURE
  1853.  
  1854. CREATURE_DESCR {Grue}
  1855. The Grue is tiny creature -- no bigger than a small puppy.  He licks your hand
  1856. and makes a noise that sounds somewhat like a cat purring.  He likes you.  As
  1857. you move around the room, he follows you about like a child.  Aren't you
  1858. lucky?!
  1859. END_CREATURE_DESCR
  1860.  
  1861. MESSAGE {What a weird idea - Eat}
  1862. What a bizarre idea!!  What are you -- some kind of weird cannibal?
  1863. END_MESSAGE
  1864.  
  1865. MESSAGE {What a weird idea - Kill}
  1866. You evil beast!  How could you even think about $VERB$ing this sweet creature?
  1867. END_MESSAGE
  1868.  
  1869. MESSAGE {What a weird idea}
  1870. You have obviously developed a demented and distorted view of life.  Probably
  1871. from playing too many adventure games.  Perhaps, you should lay off those evil
  1872. things until you recover your senses and regain a more realistic perspective.
  1873. END_MESSAGE
  1874.  
  1875. COMMAND EAT GRUE
  1876. Present {Grue}
  1877. PrintMessage {What a weird idea - Eat}
  1878. PrintMessage {What a weird idea}
  1879. DoneWithTurn
  1880. END_COMMAND
  1881.  
  1882. COMMAND SHOOT GRUE
  1883. Present {Grue}
  1884. PrintMessage {What a weird idea - Kill}
  1885. PrintMessage {What a weird idea}
  1886. DoneWithTurn
  1887. END_COMMAND
  1888.  
  1889. COMMAND KILL GRUE
  1890. Present {Grue}
  1891. PrintMessage {What a weird idea - Kill}
  1892. PrintMessage {What a weird idea}
  1893. DoneWithTurn
  1894. END_COMMAND
  1895.  
  1896. COMMAND KISS GRUE
  1897. Present {Grue}
  1898. PrintMessage {What a weird idea - Kill}
  1899. PrintMessage {What a weird idea}
  1900. DoneWithTurn
  1901. END_COMMAND
  1902.  
  1903. FLAG {Has Patting Bonus}
  1904.  
  1905. MESSAGE {Pat him}
  1906. As you $VERB$ the Grue, he purrs softly and licks your hand.
  1907. END_MESSAGE
  1908.  
  1909. MESSAGE {Get Patting bonus}
  1910. For displaying such kindness to the infamous Grue, you get a 10 point bonus.
  1911. END_MESSAGE
  1912.  
  1913. COMMAND PAT GRUE
  1914. FlagOFF {Has Patting Bonus}
  1915. Present {Grue}
  1916. PrintMessage {Get Patting bonus}
  1917. PlusScore 10
  1918. TurnFlagON {Has Patting Bonus}
  1919. END_COMMAND
  1920.  
  1921. COMMAND PAT GRUE
  1922. Present {Grue}
  1923. PrintMessage {Pat him}
  1924. DoneWithTurn
  1925. END_COMMAND
  1926.  
  1927. ROOM {Bat Room}
  1928. Bat Room
  1929. SOUTH {Smelly Room}
  1930. WEST {Small Room}
  1931. LIGHT {Shining lantern}
  1932. END_ROOM
  1933.  
  1934. ROOM_DESCR {Bat Room}
  1935. You are in the bat room.  Pictures of famous bats are hung in the room.  There
  1936. is a passage to the west, but to the south it smells strongly of gas (not
  1937. fuel -- the other kind.)
  1938. END_ROOM_DESCR
  1939.  
  1940. NOUN {baseball bat}
  1941. Bat
  1942. Baseball
  1943. There is a large baseball bat here.  It is autographed.
  1944. SIZE 20
  1945. WEIGHT 20
  1946. LOCATION {Bat Room}
  1947. READABLE
  1948. POINTS 10
  1949. END_NOUN
  1950.  
  1951. NOUN_DESCR {baseball bat}
  1952. The bat looks large and heavy, but awkward - a reject from last year's World
  1953. Series.  It has a signature on it - `Ronald Reagan'.
  1954. END_NOUN_DESCR
  1955.  
  1956. TEXT {baseball bat}
  1957. The bat is an official 'Milpitas Slogger'.  It is signed by `Ronald Reagan'.
  1958. END_TEXT
  1959.  
  1960.  
  1961. ROOM {Chili Contest}
  1962. Chili Contest
  1963. EAST {Wine Tasting Room}
  1964. UP {Smelly Room}
  1965. ROOM_SYNONYMS Eat Taste
  1966. LIGHT {Shining lantern}
  1967. END_ROOM
  1968.  
  1969. ROOM_DESCR {Chili Contest}
  1970. You are in the middle of a chili cooking and eating contest.  There is a large
  1971. sign nailed to the west wall.  There is a passage leading to the east.
  1972. END_ROOM_DESCR
  1973.  
  1974. NOUN {people}
  1975. people
  1976. lotsa
  1977. There are people milling around in small groups with bowls in their hands.
  1978. UNMOVABLE
  1979. LOCATION {Chili Contest}
  1980. PLURAL
  1981. NOUN_SYNONYMS person man woman porkers
  1982. END_NOUN
  1983.  
  1984. NOUN_DESCR {people}
  1985. The people are everywhere and are gobbling up bowl after bowl of chili and
  1986. really pigging out on it.  A bunch of real PORKers!
  1987. END_NOUN_DESCR
  1988.  
  1989. MESSAGE {People ignore you}
  1990. The people just ignore you and continue eating their chili.
  1991. END_MESSAGE
  1992.  
  1993.  
  1994. COMMAND TALK TO PEOPLE
  1995. Present {People}
  1996. PrintMessage {People ignore you}
  1997. DoneWithTurn
  1998. END_COMMAND
  1999.  
  2000. COMMAND ASK PEOPLE
  2001. Present {People}
  2002. PrintMessage {People ignore you}
  2003. DoneWithTurn
  2004. END_COMMAND
  2005.  
  2006. NOUN {Chili Pot}
  2007. Chili
  2008. Hot
  2009. There is huge pot of bubbling chili in the center of the room.
  2010. SIZE 81
  2011. WEIGHT 81
  2012. LOCATION {chili Contest}
  2013. EDIBLE
  2014. POISONOUS
  2015. POINTS 10
  2016. NOUN_SYNONYMS food pot bowl bowls
  2017. END_NOUN
  2018.  
  2019. NOUN_DESCR {Chili Pot}
  2020. The pot is gigantic.  It is bubbling furiously.  The chili looks great.  You
  2021. realize how long it has been since you last ate.
  2022. END_NOUN_DESCR
  2023.  
  2024. MESSAGE {Eat the chili}
  2025. You gobble up a couple of bowls.  You really PORK out.  It is great chili!
  2026. END_MESSAGE
  2027.  
  2028. MESSAGE {Let it rip}
  2029. After a while, you start to feel gaseous and you let a real smelly one rip
  2030. loose.  Unfortunately, the gas is poisonous and even you are overcome by the
  2031. fumes.  What a way to die!
  2032. END_MESSAGE
  2033.  
  2034. COMMAND EAT CHILI
  2035. Present {Chili Pot}
  2036. PrintMessage {Eat the chili}
  2037. PrintMessage {Let it rip}
  2038. BlankLine
  2039. GoToRoom {Funeral}
  2040. DoneWithTurn
  2041. END_COMMAND
  2042.  
  2043. COMMAND FART
  2044. Present {Chili Pot}
  2045. PrintMessage {Let it rip}
  2046. BlankLine
  2047. GoToRoom {Funeral}
  2048. DoneWithTurn
  2049. END_COMMAND
  2050.  
  2051. ROOM {Wine Tasting Room}
  2052. Wine Tasting Room
  2053. WEST {Chili Contest}
  2054. ROOM_SYNONYMS Drink Taste
  2055. LIGHT {Shining lantern}
  2056. END_ROOM
  2057.  
  2058. ROOM_DESCR {Wine Tasting Room}
  2059. You are in the wine tasting room.  However, you notice that most of the
  2060. bottles are cheap, and aren't really that tasty.  The only exit is to the west.
  2061. END_ROOM_DESCR
  2062.  
  2063. NOUN {wine}
  2064. Wine
  2065. Cheap
  2066. There are some bottles of some cheap wine here.
  2067. SIZE 20
  2068. WEIGHT 20
  2069. LOCATION {Wine Tasting Room}
  2070. READABLE
  2071. DRINKABLE
  2072. POISONOUS
  2073. PLURAL
  2074. NOUN_SYNONYMS bottles bottle label
  2075. POINTS 10
  2076. END_NOUN
  2077.  
  2078. NOUN_DESCR {wine}
  2079. The wine is a fine vintage from Jimmy Carter's own private grape fields,
  2080. in Plains, Georgia, made out of (censored), and mixed with (censored) to
  2081. produce a (censored) taste.
  2082. END_NOUN_DESCR
  2083.  
  2084. TEXT {wine}
  2085. According the mimeographed label, the wine is a fine vintage (specifically,
  2086. last Thursday) from Jimmy Carter's own private grape fields in Plains,
  2087. Georgia, made out of (censored), and mixed with (censored) to produce a
  2088. (censored) taste.
  2089. END_TEXT
  2090.  
  2091.  
  2092. ROOM {Smelly Room}
  2093. Smelly Room
  2094. NORTH {Bat Room}
  2095. DOWN {Chili Contest}
  2096. LIGHT {Shining lantern}
  2097. END_ROOM
  2098.  
  2099. ROOM_DESCR {Smelly Room}
  2100. You are in a small room, which smells amazingly bad.  You can go north, or
  2101. descend to the source of the smell.
  2102.  
  2103. There is a large sign nailed to the east wall.
  2104. END_ROOM_DESCR
  2105.  
  2106. MESSAGE {No Smoking}
  2107. The sign reads: "Expiratory Distribution of Partially Ignited Hydrocarbons
  2108. into the Immediate Atmosphere Strictly Disallowed".
  2109. END_MESSAGE
  2110.  
  2111. COMMAND READ SIGN
  2112. AtLocation {Chili Contest}
  2113. OR
  2114. AtLocation {Smelly Room}
  2115. PrintMessage {No Smoking}
  2116. DoneWithTurn
  2117. END_COMMAND
  2118.  
  2119. ROOM {Worship Room}
  2120. Worship Room
  2121. SOUTH {Tomb}
  2122. WEST {Mirror Room}
  2123. LIGHT {Shining lantern}
  2124. END_ROOM
  2125.  
  2126. ROOM_DESCR {Worship Room}
  2127. You are in what is obviously a place of worship.  There are idols of his royal
  2128. beingness Joel Berez and one large statue of him about the room.  A very, very
  2129. religious aura seems to linger in the air.  You'd have to pay me to come here.
  2130. You can leave this icky place by way of two passages, to the west and to the
  2131. south.
  2132.  
  2133. There is a large sign on the north wall.
  2134. END_ROOM_DESCR
  2135.  
  2136. MESSAGE {Commandment List}
  2137. It is a long list of commandments.  There are many, many, many more than ten.
  2138. Your eyes scan the list and fall randomly on a commandment near the bottom of
  2139. the list.
  2140.  
  2141. You read...
  2142.  
  2143. COMMANDMENT #12592
  2144. Oh ye who write Adventure Games that torment the player with stupid puzzles:
  2145. Dost thou know the magnitude of thy sin before the gods?  Yea, verily, thou
  2146. shalt be ground between two stones.  Shall the angry gods cast thy body into
  2147. the whirlpool?  Surely, thy eye shall be put out with a sharp stick!  Even
  2148. unto the ends of the earth shalt thou wander and unto the land of the dead
  2149. shalt thou be sent at last.  Surely thou shalt repent of thy low cunning.
  2150.  
  2151. You smile and nod your head in agreement and approval.
  2152. END_MESSAGE
  2153.  
  2154. COMMAND READ SIGN
  2155. AtLocation {Worship Room}
  2156. PrintMessage {Commandment List}
  2157. DoneWithTurn
  2158. END_COMMAND
  2159.  
  2160. MESSAGE {Now I lie (sic) me down to sleep}
  2161. You mumble the only prayer you know, 'Now I lie (sic) me down to sleep ... etc
  2162. ... etc...'
  2163.  
  2164. The power of suggestion is obviously a very strong force with you, because you
  2165. soon fall sound asleep....
  2166.  
  2167. Time passes .... and finally you wake up, well rested and ready to resume your
  2168. adventure.
  2169. END_MESSAGE
  2170.  
  2171. COMMAND PRAY
  2172. PrintMessage {Now I lie (sic) me down to sleep}
  2173. END_COMMAND
  2174.  
  2175. MESSAGE {Someone steals treasures}
  2176.  
  2177. However, you are dismayed to discover that you have been robbed!
  2178. END_MESSAGE
  2179.  
  2180. COMMAND PRAY
  2181. IsCarryingTreasure 5
  2182. PrintMessage {Someone steals treasures}
  2183. SendTreasuresToRoom {Tax Collector's Lair} 4
  2184. END_COMMAND
  2185.  
  2186. COMMAND PRAY
  2187. DoneWithTurn
  2188. END_COMMAND
  2189.  
  2190. NOUN {Prayer Book}
  2191. Book
  2192. Prayer
  2193. There is a prayer book here.
  2194. SIZE 20
  2195. WEIGHT 20
  2196. LOCATION {Worship Room}
  2197. READABLE
  2198. POINTS 10
  2199. END_NOUN
  2200.  
  2201. NOUN_DESCR {Prayer Book}
  2202. The prayer book is a fairly large book, all black with pictures of human
  2203. sacrifices (they're playing computer adventure games.)  Its title is
  2204. `201: A Sea Odyssey'
  2205. END_NOUN_DESCR
  2206.  
  2207. TEXT {Prayer Book}
  2208. You read for a little while, but get depressed and finally stop.
  2209. END_TEXT
  2210.  
  2211. VARIABLE {candles left}
  2212.  
  2213. NOUN {candles}
  2214. Candles
  2215. Wax
  2216. There are some wax candles here.
  2217. SIZE 10
  2218. WEIGHT 10
  2219. LOCATION {Worship Room}
  2220. PLURAL
  2221. NOUN_SYNONYMS candle
  2222. END_NOUN
  2223.  
  2224. NOUN_DESCR {candles}
  2225. The candles are just that.  Wax candles.  Not long ones or fancy candles,
  2226. just plain old regular candles.  Every adventure game needs a light source
  2227. of some kind.  Why should this game be any different???
  2228. There are #VAR{candles left}# candles.
  2229. END_NOUN_DESCR
  2230.  
  2231. COMMAND EXAMINE CANDLES
  2232. VariableEquals {candles left} 1
  2233. PrintMessage "There is only one candle left."
  2234. DoneWithTurn
  2235. END_COMMAND
  2236.  
  2237.  
  2238. ROOM {Tomb}
  2239. Tomb
  2240. NORTH {Worship Room}
  2241. LIGHT {Shining lantern}
  2242. END_ROOM
  2243.  
  2244. ROOM_DESCR {Tomb}
  2245. You are in the tomb of an Egyptian slave.  In other words, there isn't anything
  2246. of any value.  Even the body has been stolen.  I guess you aren't the first one
  2247. here, buddy.
  2248. END_ROOM_DESCR
  2249.  
  2250. NOUN {$500 bill}
  2251. Money
  2252. Paper
  2253. There is a $500 dollar bill here.
  2254. SIZE 5
  2255. WEIGHT 5
  2256. LOCATION {Tomb}
  2257. NOUN_SYNONYMS bill
  2258. POINTS 10
  2259. END_NOUN
  2260.  
  2261. NOUN_DESCR {$500 bill}
  2262. The bill says $500 in each corner, has a picture of Joel Berez in the middle,
  2263. and is worth 500 dollars.  How stupid can you get?
  2264. END_NOUN_DESCR
  2265.  
  2266. NOUN {Shovel}
  2267. Shovel
  2268. Long-handled
  2269. There is a long-handled shovel here.
  2270. SIZE 15
  2271. WEIGHT 15
  2272. LOCATION {Tomb}
  2273. NOUN_SYNONYMS spade
  2274. END_NOUN
  2275.  
  2276. NOUN_DESCR {Shovel}
  2277. The shovel is made of steel with a long handle.
  2278. END_NOUN_DESCR
  2279.  
  2280.  
  2281. ROOM {Sandy Beach}
  2282. Sandy Beach
  2283. SOUTH {Lake Shore}
  2284. LIGHT {Shining lantern}
  2285. END_ROOM
  2286.  
  2287. ROOM_DESCR {Sandy Beach}
  2288. You are on a large sandy beach.  A path leads south to the lake shore.
  2289. END_ROOM_DESCR
  2290.  
  2291. NOUN {Large X}
  2292. X
  2293. Large
  2294. There is a large X painted on a spot in the sand.
  2295. UNMOVABLE
  2296. READABLE
  2297. LOCATION {Sandy Beach}
  2298. END_NOUN
  2299.  
  2300. NOUN_DESCR {Large X}
  2301. The X is about 3 feet square and painted black.
  2302. END_NOUN_DESCR
  2303.  
  2304. TEXT {Large X}
  2305. The X says 'X'.  What did you expect, turkey?
  2306. END_TEXT
  2307.  
  2308. NOUN {Small Hole}
  2309. Hole
  2310. Small
  2311. A small hole has been dug in the sand.
  2312. UNMOVABLE
  2313. LOCATION {NoWhere}
  2314. END_NOUN
  2315.  
  2316. NOUN_DESCR {Small Hole}
  2317. The hole is circular and is about 4 feet deep and about 6 feet across.
  2318. END_NOUN_DESCR
  2319.  
  2320. NOUN {Large Hole}
  2321. Hole
  2322. Large
  2323. A large hole has been dug in the sand.
  2324. UNMOVABLE
  2325. LOCATION {NoWhere}
  2326. END_NOUN
  2327.  
  2328. NOUN_DESCR {Large Hole}
  2329. The hole is circular and is about 8 feet deep and about 12 feet across.
  2330. END_NOUN_DESCR
  2331.  
  2332. NOUN {Gigantic Hole}
  2333. Hole
  2334. Gigantic
  2335. A gigantic hole has been dug in the sand.
  2336. UNMOVABLE
  2337. LOCATION {NoWhere}
  2338. END_NOUN
  2339.  
  2340. NOUN_DESCR {Gigantic Hole}
  2341. The hole is circular and is 30 feet across.  The bottom is far below.
  2342. END_NOUN_DESCR
  2343.  
  2344. MESSAGE {Don't have the proper tool}
  2345. Sorry, but you don't have the proper tool to do that.
  2346. END_MESSAGE
  2347.  
  2348. COMMAND DIG
  2349. NOT Present {Shovel}
  2350. PrintMessage {Don't have the proper tool}
  2351. DoneWithTurn
  2352. END_COMMAND
  2353.  
  2354. COMMAND DIG
  2355. AtLocation {Sandy Beach}
  2356. Present {Large X}
  2357. SwapLocations {Large X} {Small Hole}
  2358. PrintMessage "You manage to dig a small hole where the X was."
  2359. DoneWithTurn
  2360. END_COMMAND
  2361.  
  2362. COMMAND DIG
  2363. AtLocation {Sandy Beach}
  2364. Present {Small Hole}
  2365. SwapLocations {Large Hole} {Small Hole}
  2366. PrintMessage "The hole is now considerably bigger."
  2367. DoneWithTurn
  2368. END_COMMAND
  2369.  
  2370. COMMAND DIG
  2371. AtLocation {Sandy Beach}
  2372. Present {Large Hole}
  2373. SwapLocations {Large Hole} {Gigantic Hole}
  2374. PrintMessage "The hole is now gigantic."
  2375. DoneWithTurn
  2376. END_COMMAND
  2377.  
  2378. MESSAGE {You slip down the sandy side of the hole}
  2379. The sandy is very unstable and you lose your footing and tumble head over
  2380. heels to the bottom of the hole.  You will never be able to climb back up
  2381. out of the hole.
  2382. END_MESSAGE
  2383.  
  2384. COMMAND DIG
  2385. AtLocation {Sandy Beach}
  2386. Present {Gigantic Hole}
  2387. GotoRoom {Bottom of hole}
  2388. PrintMessage {You slip down the sandy side of the hole}
  2389. DoneWithTurn
  2390. END_COMMAND
  2391.  
  2392. COMMAND DOWN
  2393. AtLocation {Sandy Beach}
  2394. Present {Gigantic Hole}
  2395. FlagOFF {Has dug in bottom of hole}
  2396. GotoRoom {Bottom of hole}
  2397. PrintMessage {You slip down the sandy side of the hole}
  2398. DoneWithTurn
  2399. END_COMMAND
  2400.  
  2401. COMMAND DOWN
  2402. AtLocation {Sandy Beach}
  2403. Present {Gigantic Hole}
  2404. FlagON {Has dug in bottom of hole}
  2405. GotoRoom {Shaft Room}
  2406. PrintMessage {You slip down the sandy side of the hole}
  2407. DoneWithTurn
  2408. END_COMMAND
  2409.  
  2410. COMMAND DOWN
  2411. Present {Small Hole}
  2412. OR
  2413. Present {Large Hole}
  2414. PrintMessage "You climb down into the hole -- then with great difficulty back up."
  2415. DoneWithTurn
  2416. END_COMMAND
  2417.  
  2418. ROOM {Bottom of Hole}
  2419. Bottom of Hole
  2420. LIGHT {Shining lantern}
  2421. ROOM_SYNONYMS UP CLIMB
  2422. END_ROOM
  2423.  
  2424. ROOM_DESCR {Bottom of Hole}
  2425. You are at the bottom of a very deep hole.  The walls of the hole are loose
  2426. sand.  It is impossible to climb out of the hole.
  2427. END_ROOM_DESCR
  2428.  
  2429. COMMAND UP
  2430. AtLocation {Bottom of Hole}
  2431. PrintMessage "You keep slipping back down.  After a while, you give up."
  2432. DoneWithTurn
  2433. END_COMMAND
  2434.  
  2435. MESSAGE {You break through}
  2436. You begin to dig furiously in the sand.  All of a sudden, your shovel breaks
  2437. through into empty space.  The sand crumbles around the sides of the hole and
  2438. you fall into the hole.  Fortunately, enough sand fell before you did to
  2439. cushion your fall as you land on a mound of sand.
  2440. END_MESSAGE
  2441.  
  2442. FLAG {Has dug in bottom of hole}
  2443.  
  2444. COMMAND DIG
  2445. AtLocation {Bottom of Hole}
  2446. GotoRoom {Shaft Room}
  2447. TurnFlagON {Has dug in bottom of hole}
  2448. PrintMessage {You break through}
  2449. DoneWithTurn
  2450. END_COMMAND
  2451.  
  2452. COMMAND DIG
  2453. NOT AtLocation {Bottom of Hole}
  2454. NOT AtLocation {Sandy Beach}
  2455. PrintMessage "The ground is too hard to dig."
  2456. DoneWithTurn
  2457. END_COMMAND
  2458.  
  2459. ROOM {Shaft Room}
  2460. Shaft Room
  2461. DOWN {Ladder Top}
  2462. ROOM_SYNONYMS DOWN CLIMB SLIDE
  2463. LIGHT {Shining lantern}
  2464. END_ROOM
  2465.  
  2466. ROOM_DESCR {Shaft Room}
  2467. You are standing on a mound of sand in the middle of a large cavernous room.
  2468. Far above, you can see a hole in the roof of the room, but it is too high
  2469. above you to reach.  In the middle of the room is large shaft descending
  2470. through the floor into the darkness below.  In the middle of that shaft is
  2471. another kind of shaft -- sort of like a 'Fire-house pole' -- that also
  2472. disappears into the darkness.  The shaft appears to be the only exit from the
  2473. room.
  2474. END_ROOM_DESCR
  2475.  
  2476. NOUN {Shaft}
  2477. Shaft
  2478. brass
  2479. There is a shaft going down.
  2480. UNMOVABLE
  2481. LOCATION {Shaft Room}
  2482. NOUN_SYNONYMS pole sand ladder
  2483. END_NOUN
  2484.  
  2485. NOUN_DESCR {Shaft}
  2486. The shaft appears to made of brass.  It has been smeared with some kind of
  2487. grease.  It is the proverbial 'greased pole'.  It would be very dangerous
  2488. to slide down this pole.
  2489. END_NOUN_DESCR
  2490.  
  2491. COMMAND GET SHAFT
  2492. PrintMessage {Leave it alone}
  2493. DoneWithTurn
  2494. END_COMMAND
  2495.  
  2496. COMMAND DOWN
  2497. AtLocation {Shaft Room}
  2498. NOT IsWearing {Tennis Shoes}
  2499. GoToRoom {Funeral}
  2500. PrintMessage "The pole is too slippery.  You lose your grip and fall...."
  2501. DoneWithTurn
  2502. END_COMMAND
  2503.  
  2504. ROOM {Ladder Top}
  2505. Ladder Top
  2506. DOWN {Ladder Bottom}
  2507. ROOM_SYNONYMS UP CLIMB SLIDE
  2508. LIGHT {Shining lantern}
  2509. END_ROOM
  2510.  
  2511. ROOM_DESCR {Ladder Top}
  2512. This is a very small room.  In the corner is a rickety wooden ladder, leading
  2513. downward.  It might be safe to descend.  In the other corner is a brass shaft
  2514. which disappears into the darkness above..
  2515. END_ROOM_DESCR
  2516.  
  2517. COMMAND UP
  2518. AtLocation {Ladder Top}
  2519. PrintMessage "The pole is too slippery to climb -- even with your tennis shoes."
  2520. DoneWithTurn
  2521. END_COMMAND
  2522.  
  2523. ROOM {Ladder Bottom}
  2524. Ladder Bottom
  2525. UP {Ladder Top}
  2526. EAST {Grating Room}
  2527. WEST {Rabbit's Warren}
  2528. ROOM_SYNONYMS UP CLIMB
  2529. LIGHT {Shining lantern}
  2530. END_ROOM
  2531.  
  2532. ROOM_DESCR {Ladder Bottom}
  2533. This is a rather wide room.  In the corner is a rickety wooden ladder, leading
  2534. upward.  To the east and west are passages leaving the room.
  2535. END_ROOM_DESCR
  2536.  
  2537. ROOM {Grating Room}
  2538. Grating Room
  2539. WEST {Ladder Bottom}
  2540. LIGHT {Shining lantern}
  2541. LOCKED_DOOR
  2542. END_ROOM
  2543.  
  2544. ROOM_DESCR {Grating Room}
  2545. This appears to be a dead end.  The only exit is west, back the way you came.
  2546. END_ROOM_DESCR
  2547.  
  2548. NOUN {Grate}
  2549. Grate
  2550. Iron
  2551. Above you is an iron grate locked with a skull-and-crossbones lock.
  2552. UNMOVABLE
  2553. LOCATION {Grating Room}
  2554. CLOSABLE
  2555. CLOSED
  2556. LOCKABLE
  2557. LOCKED
  2558. KEY {Shaft}
  2559. NOUN_SYNONYMS grating bars lock
  2560. END_NOUN
  2561.  
  2562. NOUN_DESCR {Grate}
  2563. The grate is made from iron bars and is about 3 feet square.  It is cemented
  2564. into place in the ceiling and is closed and locked.  The lock has a
  2565. skull-and-crossbones design on it and is currently locked.
  2566. END_NOUN_DESCR
  2567.  
  2568. ROOM {Rabbit's Warren}
  2569. Rabbit's Warren
  2570. EAST {Ladder Bottom}
  2571. NORTH {Mine Room#1}
  2572. LIGHT {Shining lantern}
  2573. END_ROOM
  2574.  
  2575. ROOM_DESCR {Rabbit's Warren}
  2576. You are in a small room.  There are two exits.  To the east and to the north.
  2577. Above the north exit is a sign that reads 'Rabbit's Warren'.  It sounds like
  2578. another one of those !@#$%^&*ing mazes.
  2579. END_ROOM_DESCR
  2580.  
  2581. CREATURE {Gigantic Rabbit}
  2582. Rabbit
  2583. Gigantic
  2584. There is a very angry, gigantic rabbit blocking the exit to the north.
  2585. LOCATION {Rabbit's Warren}
  2586. HOSTILE
  2587. THRESHOLD 1000
  2588. TIME_THRESH 1000
  2589. END_CREATURE
  2590.  
  2591. CREATURE_DESCR {Gigantic Rabbit}
  2592. The rabbit is huge.  He rabbit is hobbling around using a cane, since he
  2593. appears to have lost one of his feet.  It's loss has obviously left him in a
  2594. bad mood.  He is quite angry and makes a number of very threatening gestures
  2595. to you.
  2596. END_CREATURE_DESCR
  2597.  
  2598. COMMAND NORTH
  2599. Present {Gigantic Rabbit}
  2600. PrintMessage "The rabbit won't let you pass.  He hits you several times with his cane."
  2601. DoneWithTurn
  2602. END_COMMAND
  2603.  
  2604. MESSAGE {Rabbit beats you}
  2605. The rabbit is a quite a bit bigger and stronger than you are.  He easily
  2606. counters you attack by repeatedly beating you over the head with his cane
  2607. before you can do him any damage.
  2608. END_MESSAGE
  2609.  
  2610. COMMAND ATTACK RABBIT
  2611. Present {Gigantic Rabbit}
  2612. PrintMessage {Rabbit beats you}
  2613. DoneWithTurn
  2614. END_COMMAND
  2615.  
  2616. COMMAND SHOOT RABBIT
  2617. Present {Gigantic Rabbit}
  2618. PrintMessage {Rabbit beats you}
  2619. DoneWithTurn
  2620. END_COMMAND
  2621.  
  2622. MESSAGE {Describe Cane}
  2623. The cane is about 3 feet long and made of ebony.  It is quite sturdy.  The
  2624. head of the cane is gold with various precious jewels.  The rabbit is holding
  2625. be his side and occasionally shaking it at you.
  2626. END_MESSAGE
  2627.  
  2628. COMMAND EXAMINE CANE
  2629. Present {Gigantic Rabbit}
  2630. PrintMessage {Describe Cane}
  2631. DoneWithTurn
  2632. END_COMMAND
  2633.  
  2634. COMMAND GET CANE
  2635. Present {Gigantic Rabbit}
  2636. PrintMessage "Sorry, but the rabbit is not about to part with his cane."
  2637. DoneWithTurn
  2638. END_COMMAND
  2639.  
  2640. MESSAGE {Rabbit thanks you}
  2641. The rabbit is delighted that you have returned his foot.  He puts it back
  2642. on to his hind leg and hops off into his warren.  He leaves his cane behind.
  2643. END_MESSAGE
  2644.  
  2645. NOUN {Cane}
  2646. Cane
  2647. Jeweled
  2648. There is a jeweled cane here.
  2649. SIZE 10
  2650. WEIGHT 10
  2651. LOCATION {Nowhere}
  2652. POINTS 10
  2653. END_NOUN
  2654.  
  2655. NOUN_DESCR {Cane}
  2656. The cane is about 3 feet long and made of ebony.  It is quite sturdy.  The
  2657. head of the cane is gold with various precious jewels.
  2658. END_NOUN_DESCR
  2659.  
  2660. COMMAND GIVE FOOT TO RABBIT
  2661. Present {Gigantic Rabbit}
  2662. Present {Rabbit's Foot}
  2663. PrintMessage {Rabbit thanks you}
  2664. Destroy {Gigantic Rabbit}
  2665. Destroy {Rabbit's Foot}
  2666. DropIt {Cane}
  2667. DoneWithTurn
  2668. END_COMMAND
  2669.  
  2670. ROOM {Lake Shore}
  2671. Lake Shore
  2672. SOUTH {Junction}
  2673. NORTH {Sandy Beach}
  2674. EAST {Pitcher's Room}
  2675. ENTER {Pitcher's Room}
  2676. WEST {Diamond Mine Entrance}
  2677. ROOM_SYNONYMS EAST BOARD
  2678. LIGHT {Shining lantern}
  2679. END_ROOM
  2680.  
  2681. ROOM_DESCR {Lake Shore}
  2682. You are at a dock along a beautiful, but polluted, lake.  Tied up to the dock
  2683. is a boat.  You may enter the boat and cross the lake to the east (just use
  2684. E or EAST).  To the south is a large room.  To the west you see the entrance to a very
  2685. complex maze.  There is a sandy beach to the north.
  2686. END_ROOM_DESCR
  2687.  
  2688. NOUN {boat}
  2689. Boat
  2690. Large
  2691. There is a large boat here (Invisible).
  2692. UNMOVABLE
  2693. LOCATION {Nowhere}
  2694. END_NOUN
  2695.  
  2696. NOUN_DESCR {boat}
  2697. There is a large boat here (Invisible).
  2698. END_NOUN_DESCR
  2699.  
  2700. MESSAGE {describe boat}
  2701. The boat is a very large yacht, with the name `Pork-Out' on the side.  It is
  2702. not richly furnished or decorated, however, and it just takes dim adventurers
  2703. across places they can't walk through.  Isn't that groovy???
  2704. END_MESSAGE
  2705.  
  2706. COMMAND EXAMINE BOAT
  2707. AtLocation {Lake Shore}
  2708. PrintMessage {describe boat}
  2709. DoneWithTurn
  2710. END_COMMAND
  2711.  
  2712. COMMAND FISH
  2713. AtLocation {Lake Shore}
  2714. PrintMessage "Be real, turkey!  Just what kind of game to you think this is?"
  2715. DoneWithTurn
  2716. END_COMMAND
  2717.  
  2718. COMMAND GET BOAT
  2719. AtLocation {Lake Shore}
  2720. PrintMessage "Be real, turkey!  Even you can't do that.  It is too heavy!"
  2721. DoneWithTurn
  2722. END_COMMAND
  2723.  
  2724. MESSAGE {Use the boat}
  2725. You get in the boat and peacefully sail across the lake.
  2726. END_MESSAGE
  2727.  
  2728. MESSAGE {swim message}
  2729. You valiantly throw off your clothes and dive into the lake.  However, you
  2730. suddenly remember you can't swim.
  2731. END_MESSAGE
  2732.  
  2733. COMMAND SWIM
  2734. AtLocation {Lake Shore}
  2735. PrintMessage {swim message}
  2736. BlankLine
  2737. GoToRoom {Funeral}
  2738. DoneWithTurn
  2739. END_COMMAND
  2740.  
  2741. COMMAND EAST
  2742. AtLocation {Lake Shore}
  2743. LoadWeightGT 50
  2744. PrintMessage "The boat's load is too heavy.  It was built on a budget."
  2745. DoneWithTurn
  2746. END_COMMAND
  2747.  
  2748. COMMAND EAST
  2749. AtLocation {Lake Shore}
  2750. PrintMessage {Use the boat}
  2751. BlankLine
  2752. END_COMMAND
  2753.  
  2754.  
  2755. ROOM {Pitcher's Room}
  2756. Pitcher's Room
  2757. WEST {Lake Shore}
  2758. NORTH {Loser's Hall of Fame}
  2759. LIGHT {Shining lantern}
  2760. END_ROOM
  2761.  
  2762. ROOM_DESCR {Pitcher's Room}
  2763. You are in a room occupied by a crazed baseball pitcher.  He is always
  2764. throwing the ball around, and you have no hope of getting to the north passage
  2765. without getting rid of him first.  However, he is not that great of a pitcher
  2766. and even you can probably get a hit off of him easily.  There is also a
  2767. passage to the west.
  2768. END_ROOM_DESCR
  2769.  
  2770.  
  2771. COMMAND WEST
  2772. AtLocation {Pitcher's Room}
  2773. PrintMessage {Use the boat}
  2774. END_COMMAND
  2775.  
  2776. MESSAGE {You'll get hit}
  2777. Sorry, but you can't get around him without getting hit by a pitched ball.
  2778. END_MESSAGE
  2779.  
  2780. COMMAND NORTH
  2781. AtLocation {Pitcher's Room}
  2782. PrintMessage {You'll get hit}
  2783. DoneWithTurn
  2784. END_COMMAND
  2785.  
  2786. MESSAGE {Swing bat message}
  2787. You swing at the ball, and hit it solidly.  The line drive smashes the
  2788. pitcher's skull, and he slumps to the ground.  Try to be a little more
  2789. accurate next time.
  2790. END_MESSAGE
  2791.  
  2792. COMMAND SWING BAT
  2793. Present {Baseball Bat}
  2794. AtLocation {Pitcher's Room}
  2795. PrintMessage {Swing bat message}
  2796. BlankLine
  2797. GoToRoom {Dead Pitcher's Room}
  2798. ChangePassageway {WEST} {Lake Shore}
  2799. DoneWithTurn
  2800. END_COMMAND
  2801.  
  2802. COMMAND SWING BAT
  2803. Present {Baseball Bat}
  2804. NOT AtLocation {Pitcher's Room}
  2805. PrintMessage "You fan the air ferociously, but only manage to tire yourself out."
  2806. DoneWithTurn
  2807. END_COMMAND
  2808.  
  2809. COMMAND SWING BAT
  2810. NOT Present {Baseball Bat}
  2811. PrintMessage "You do not have the necessary sports equipment."
  2812. DoneWithTurn
  2813. END_COMMAND
  2814.  
  2815. NOUN {baseball}
  2816. baseball
  2817. the
  2818. There is a baseball here.
  2819. LOCATION {Nowhere}
  2820. NOUN_SYNONYMS ball pitch
  2821. END_NOUN
  2822.  
  2823. NOUN_DESCR {baseball}
  2824. There is a baseball here.
  2825. END_NOUN_DESCR
  2826.  
  2827. COMMAND HIT BALL
  2828. ReDirectTo SWING BAT
  2829. END_COMMAND
  2830.  
  2831.  
  2832. ROOM {Dead Pitcher's Room}
  2833. Pitcher's Room
  2834. WEST {Lake Shore}
  2835. NORTH {Loser's Hall of Fame}
  2836. LIGHT {Shining lantern}
  2837. END_ROOM
  2838.  
  2839. ROOM_DESCR {Dead Pitcher's Room}
  2840. You are in a room, which used to home an insane baseball pitcher.  He is lying
  2841. dead on the ground after some jerk hit the ball, and it killed him.  You can
  2842. go to the west or to the north.
  2843. END_ROOM_DESCR
  2844.  
  2845. COMMAND WEST
  2846. AtLocation {Dead Pitcher's Room}
  2847. PrintMessage {Use the boat}
  2848. END_COMMAND
  2849.  
  2850.  
  2851. ROOM {Loser's Hall of Fame}
  2852. Loser's Hall of Fame
  2853. SOUTH {Dead Pitcher's Room}
  2854. LIGHT {Shining lantern}
  2855. END_ROOM
  2856.  
  2857. ROOM_DESCR {Loser's Hall of Fame}
  2858. You are in the Losers' Hall of Fame.  There are pictures of great losers
  2859. everywhere, and you feel proud to be a loser.  The only exit is back to the
  2860. south.
  2861. END_ROOM_DESCR
  2862.  
  2863. NOUN {Your Picture}
  2864. Portrait
  2865. Your
  2866. Your portrait is here.
  2867. SIZE 20
  2868. WEIGHT 20
  2869. LOCATION {Loser's Hall of Fame}
  2870. NOUN_SYNONYMS picture pic
  2871. POINTS 10
  2872. END_NOUN
  2873.  
  2874. NOUN_DESCR {Your Picture}
  2875. The portrait is too horrid to describe.  To look at it would be worse than
  2876. suicide.
  2877. END_NOUN_DESCR
  2878.  
  2879. ROOM {Diamond Mine Entrance}
  2880. Entrance to Diamond Mine
  2881. NORTH {Mine Room#1}
  2882. EAST {Lake Shore}
  2883. LIGHT {Shining lantern}
  2884. END_ROOM
  2885.  
  2886. ROOM_DESCR {Diamond Mine Entrance}
  2887. You are near a hillside.  There is a sign that says: 'Diamond Mine Entrance'.
  2888. There is also an arrow on the sign that points to a hole going north into the
  2889. hillside.  To the east you can see a boat by a lake.
  2890. END_ROOM_DESCR
  2891.  
  2892. ROOM {Mine Room#1}
  2893. Inside Diamond Mine
  2894. NORTH {Mine Room#2}
  2895. LIGHT {Shining lantern}
  2896. END_ROOM
  2897.  
  2898. ROOM_DESCR {Mine Room#1}
  2899. You are lost in a maze of twisty little passages, all alike.  However, you can
  2900. just make out some light seeping through the end of the tunnel to the north
  2901. (HINT HINT).
  2902. END_ROOM_DESCR
  2903.  
  2904. ROOM {Mine Room#2}
  2905. Inside Diamond Mine
  2906. NORTH {Mine Room#3}
  2907. EAST {Royal Chamber}
  2908. LIGHT {Shining lantern}
  2909. END_ROOM
  2910.  
  2911. ROOM_DESCR {Mine Room#2}
  2912. You are lost in a maze of twisty little passages, all alike.  However, you can
  2913. just make out some light seeping through the end of the tunnel to the north
  2914. (HINT HINT).  There is also an interesting-looking passage to the east.
  2915. END_ROOM_DESCR
  2916.  
  2917. NOUN {Diamond}
  2918. Diamond
  2919. Huge
  2920. There is a huge diamond here.
  2921. SIZE 15
  2922. WEIGHT 15
  2923. LOCATION {Mine Room#2}
  2924. NOUN_SYNONYMS jewel
  2925. END_NOUN
  2926.  
  2927. NOUN_DESCR {Diamond}
  2928. The diamond is quite large and looks very valuable.
  2929. END_NOUN_DESCR
  2930.  
  2931. ROOM {Royal Chamber}
  2932. Royal Chamber
  2933. WEST {Mine Room#2}
  2934. LOCKED_DOOR
  2935. LIGHT {Shining lantern}
  2936. END_ROOM
  2937.  
  2938. ROOM_DESCR {Royal Chamber}
  2939. You are small room that is richly decorated with beautiful golden furniture.
  2940. There is a passage to the west -- back the way you came.
  2941. END_ROOM_DESCR
  2942.  
  2943. NOUN {throne}
  2944. Throne
  2945. Golden
  2946. There is a golden throne-like chair in the center of the room.
  2947. UNMOVABLE
  2948. LOCATION {Royal Chamber}
  2949. NOUN_SYNONYMS furniture chair
  2950. END_NOUN
  2951.  
  2952. NOUN_DESCR {throne}
  2953. It looks like real gold.  It must be worth a fortune!
  2954. END_NOUN_DESCR
  2955.  
  2956. NOUN {carpet}
  2957. Carpet
  2958. Persian
  2959. There is a beautiful Persian carpet on the floor.
  2960. SIZE 10
  2961. WEIGHT 10
  2962. LOCATION {Royal Chamber}
  2963. POINTS 10
  2964. NOUN_SYNONYMS rug
  2965. END_NOUN
  2966.  
  2967. NOUN_DESCR {carpet}
  2968. The carpet is about 6 feet square and was hand-made by some highly-skilled
  2969. craftspersons.
  2970. END_NOUN_DESCR
  2971.  
  2972. MESSAGE {There is nothing under the carpet}
  2973. There is nothing under the carpet.  No trap doors!  No secret passageways!  No
  2974. treasures!  Nothing!  How unimaginative!!  How dull!!
  2975. END_MESSAGE
  2976.  
  2977. COMMAND GET RUG
  2978. Present {carpet}
  2979. PrintMessage {There is nothing under the carpet}
  2980. BlankLine
  2981. END_COMMAND
  2982.  
  2983. COMMAND MOVE RUG
  2984. Present {carpet}
  2985. PrintMessage {There is nothing under the carpet}
  2986. BlankLine
  2987. END_COMMAND
  2988.  
  2989. COMMAND GET FROG
  2990. Present {Frog}
  2991. PrintMessage "The little beast hops away before you can get it."
  2992. DoneWithTurn
  2993. END_COMMAND
  2994.  
  2995. CREATURE {Frog}
  2996. Frog
  2997. Green
  2998. There is a small green frog hopping about the room.
  2999. LOCATION {Royal Chamber}
  3000. GROUPMEMBER
  3001. CREATURE_SYNONYMS beast kermit
  3002. END_CREATURE
  3003.  
  3004. CREATURE_DESCR {Frog}
  3005. The frog is quite small.  It looks pretty-much like an ordinary frog -- sort of
  3006. like Kermit.
  3007. END_CREATURE_DESCR
  3008.  
  3009. COMMAND EAT FROG
  3010. Present {Frog}
  3011. PrintMessage {What a weird idea - Eat}
  3012. PrintMessage {What a weird idea}
  3013. DoneWithTurn
  3014. END_COMMAND
  3015.  
  3016. COMMAND SHOOT FROG
  3017. Present {Frog}
  3018. PrintMessage {What a weird idea - Kill}
  3019. PrintMessage {What a weird idea}
  3020. DoneWithTurn
  3021. END_COMMAND
  3022.  
  3023. COMMAND KILL FROG
  3024. Present {Frog}
  3025. PrintMessage {What a weird idea - Kill}
  3026. PrintMessage {What a weird idea}
  3027. DoneWithTurn
  3028. END_COMMAND
  3029.  
  3030. COMMAND PAT FROG
  3031. Present {Frog}
  3032. PrintMessage {What a weird idea - Kill}
  3033. PrintMessage {What a weird idea}
  3034. DoneWithTurn
  3035. END_COMMAND
  3036.  
  3037. COMMAND KISS FROG
  3038. Present {Frog}
  3039. PrintMessage {What a weird idea - Kill}
  3040. PrintMessage {What a weird idea}
  3041. DoneWithTurn
  3042. END_COMMAND
  3043.  
  3044. ROOM {Mine Room#3}
  3045. Inside Diamond Mine
  3046. NORTH {Mine Room#4}
  3047. LIGHT {Shining lantern}
  3048. END_ROOM
  3049.  
  3050. ROOM_DESCR {Mine Room#3}
  3051. You are lost in a maze of twisty little passages, all alike.  However, you can
  3052. just make out some light seeping through the end of the tunnel to the north
  3053. (HINT HINT).
  3054. END_ROOM_DESCR
  3055.  
  3056. ROOM {Mine Room#4}
  3057. Inside Diamond Mine
  3058. NORTH {Mine Room#5}
  3059. LIGHT {Shining lantern}
  3060. END_ROOM
  3061.  
  3062. ROOM_DESCR {Mine Room#4}
  3063. You are lost in a maze of twisty little passages, all alike.  However, you can
  3064. just make out some light seeping through the end of the tunnel to the north
  3065. (HINT HINT).
  3066. END_ROOM_DESCR
  3067.  
  3068. NOUN {Skeleton}
  3069. Skeleton
  3070. Old
  3071. A skeleton (probably a luckless adventurer) lies here.
  3072. SIZE 15
  3073. WEIGHT 15
  3074. LOCATION {Mine Room#4}
  3075. NOUN_SYNONYMS bone bones
  3076. END_NOUN
  3077.  
  3078. NOUN_DESCR {Skeleton}
  3079. The skeleton looks old and moldy.  Ugh!!
  3080. END_NOUN_DESCR
  3081.  
  3082. NOUN {Skeleton keys}
  3083. Keys
  3084. Skeleton
  3085. You see a ring of skeleton keys.
  3086. SIZE 5
  3087. WEIGHT 5
  3088. LOCATION {Mine Room#4}
  3089. POSITION next to skeleton
  3090. NOUN_SYNONYMS ring key
  3091. END_NOUN
  3092.  
  3093. NOUN_DESCR {Skeleton keys}
  3094. The skeleton keys looks old and moldy.  They are on a brass ring.  Every
  3095. adventure game needs to have some keys to open things, don't you think so?
  3096. END_NOUN_DESCR
  3097.  
  3098. COMMAND UNLOCK ANY WITH KEYS
  3099. Present {Skeleton keys}
  3100. PrintMessage "The keys don't work.  Maybe these are the wrong keys for the $VERB$."
  3101. DoneWithTurn
  3102. END_COMMAND
  3103.  
  3104. ROOM {Mine Room#5}
  3105. Inside Diamond Mine
  3106. NORTH {Outside Mine}
  3107. WEST {Dead End}
  3108. LIGHT {Shining lantern}
  3109. END_ROOM
  3110.  
  3111. ROOM_DESCR {Mine Room#5}
  3112. You are lost in a maze of twisty little passages, all alike.  However, you can
  3113. just make out some light seeping through the end of the tunnel to the north
  3114. (HINT HINT).
  3115.  
  3116. There is a sign over a tunnel leading west that says 'DEAD END'.
  3117. END_ROOM_DESCR
  3118.  
  3119. COMMAND READ SIGN
  3120. AtLocation {Mine Room#5}
  3121. PrintMessage "It still says 'DEAD END', buddy!"
  3122. DoneWithTurn
  3123. END_COMMAND
  3124.  
  3125. ROOM {Dead End}
  3126. DEAD END
  3127. KillPlayer
  3128. END_ROOM
  3129.  
  3130. ROOM_DESCR {Dead End}
  3131. What's the matter with you, buddy?  Can't you read?  If not, you have no
  3132. business playing TEXT adventure games!  Better stick to those wimpy graphic
  3133. adventure games that don't require you to be able to read, write or type.
  3134.  
  3135. Anyway, the sign said 'DEAD END' -- didn't it?  Don't say you weren't warned!
  3136. END_ROOM_DESCR
  3137.  
  3138.  
  3139. ROOM {Outside Mine}
  3140. Outside Diamond Mine
  3141. NORTH {Diamond Mine Entrance}
  3142. EAST {Lake Shore}
  3143. LIGHT {Shining lantern}
  3144. END_ROOM
  3145.  
  3146. ROOM_DESCR {Outside Mine}
  3147. You finally stumble out of the mine.  You see the mine entrance to the north
  3148. and the lake shore to the east.
  3149. END_ROOM_DESCR
  3150.  
  3151. ROOM {Loud Room With Band}
  3152. Loud Room
  3153. LIGHT {Shining lantern}
  3154. END_ROOM
  3155.  
  3156. ROOM_DESCR {Loud Room With Band}
  3157. You are in the loud room.  There is a heavy metal band playing here. You notice
  3158. one of them has an electric guitar.  There is a huge speaker in the corner.
  3159. END_ROOM_DESCR
  3160.  
  3161. NOUN {plug}
  3162. plug
  3163. electric
  3164. There is an electric plug here
  3165. LOCATION {nowhere}
  3166. NOUN_SYNONYMS speaker speakers ears band
  3167. END_NOUN
  3168.  
  3169. NOUN_DESCR {plug}
  3170. There is an electric plug here.
  3171. END_NOUN_DESCR
  3172.  
  3173. MESSAGE {Pull Plug message}
  3174. You do it, and the heavy metal band goes into shock because their music is not
  3175. blaring.  They all drop what they are carrying and run away frantically.
  3176. END_MESSAGE
  3177.  
  3178. COMMAND PULL PLUG
  3179. AtLocation {Loud Room With Band}
  3180. PrintMessage {Pull Plug message}
  3181. BlankLine
  3182. GoToRoom {Loud Room}
  3183. ChangePassageway {WEST} {Junction}
  3184. DoneWithTurn
  3185. END_COMMAND
  3186.  
  3187. COMMAND PULL PLUG
  3188. NOT AtLocation {Loud Room With Band}
  3189. PrintMessage "You would look pretty silly doing that.  I am just going to ignore it."
  3190. DoneWithTurn
  3191. END_COMMAND
  3192.  
  3193. COMMAND ATTACK BAND
  3194. ReDirectTo PULL PLUG
  3195. END_COMMAND
  3196.  
  3197. COMMAND SHOOT BAND
  3198. ReDirectTo PULL PLUG
  3199. END_COMMAND
  3200.  
  3201. COMMAND COVER EARS
  3202. ReDirectTo PULL PLUG
  3203. END_COMMAND
  3204.  
  3205. MESSAGE {Try to GET Message}
  3206. No!  You ain't gunna take it! ... No, you ain't gunna take it!  You ain't gunna
  3207. take it, no no...'
  3208. END_MESSAGE
  3209.  
  3210. COMMAND GET ANY
  3211. AtLocation {Loud Room With Band}
  3212. PrintMessage {Try to GET Message}
  3213. DoneWithTurn
  3214. END_COMMAND
  3215.  
  3216. MESSAGE {Sorry, but I can't hear you}
  3217. Sorry, but I can't hear you.
  3218. END_MESSAGE
  3219.  
  3220. COMMAND HELP
  3221. AtLocation {Loud Room With Band}
  3222. PrintMessage {Sorry, but I can't hear you}
  3223. DoneWithTurn
  3224. END_COMMAND
  3225.  
  3226. COMMAND INVENTORY
  3227. AtLocation {Loud Room With Band}
  3228. PrintMessage {Sorry, but I can't hear you}
  3229. DoneWithTurn
  3230. END_COMMAND
  3231.  
  3232. COMMAND NORTH
  3233. AtLocation {Loud Room With Band}
  3234. PrintMessage {Sorry, but I can't hear you}
  3235. DoneWithTurn
  3236. END_COMMAND
  3237.  
  3238. COMMAND SOUTH
  3239. AtLocation {Loud Room With Band}
  3240. PrintMessage {Sorry, but I can't hear you}
  3241. DoneWithTurn
  3242. END_COMMAND
  3243.  
  3244. COMMAND EAST
  3245. AtLocation {Loud Room With Band}
  3246. PrintMessage {Sorry, but I can't hear you}
  3247. DoneWithTurn
  3248. END_COMMAND
  3249.  
  3250. COMMAND WEST
  3251. AtLocation {Loud Room With Band}
  3252. PrintMessage {Sorry, but I can't hear you}
  3253. DoneWithTurn
  3254. END_COMMAND
  3255.  
  3256. COMMAND UP
  3257. AtLocation {Loud Room With Band}
  3258. PrintMessage {Sorry, but I can't hear you}
  3259. DoneWithTurn
  3260. END_COMMAND
  3261.  
  3262. COMMAND DOWN
  3263. AtLocation {Loud Room With Band}
  3264. PrintMessage {Sorry, but I can't hear you}
  3265. DoneWithTurn
  3266. END_COMMAND
  3267.  
  3268. COMMAND EXIT
  3269. AtLocation {Loud Room With Band}
  3270. PrintMessage {Sorry, but I can't hear you}
  3271. DoneWithTurn
  3272. END_COMMAND
  3273.  
  3274. COMMAND LIST EXITS
  3275. AtLocation {Loud Room With Band}
  3276. PrintMessage {Sorry, but I can't hear you}
  3277. DoneWithTurn
  3278. END_COMMAND
  3279.  
  3280.  
  3281. ROOM {Loud Room}
  3282. Loud Room
  3283. WEST {Junction}
  3284. EAST {Triangular Room}
  3285. LIGHT {Shining lantern}
  3286. END_ROOM
  3287.  
  3288. ROOM_DESCR {Loud Room}
  3289. You are in the loud room.  You can see the set-up of a heavy metal band here,
  3290. but they are not in sight.  There is a huge speaker in the corner of the room.
  3291. There are exits to the east and to the west.
  3292. END_ROOM_DESCR
  3293.  
  3294. NOUN {guitar}
  3295. Guitar
  3296. Electric
  3297. There is an electric guitar here.
  3298. SIZE 20
  3299. WEIGHT 20
  3300. LOCATION {Loud Room}
  3301. POINTS 10
  3302. END_NOUN
  3303.  
  3304. NOUN_DESCR {guitar}
  3305. The guitar is a basic six stringer, with a plug to go into a wall.  It can only
  3306. play heavy metal, though, at not less than 500 decibels.  An engraving reads:
  3307. `ACME Anti-Deafness Prevention Old People Harrasser.'
  3308. END_NOUN_DESCR
  3309.  
  3310. ROOM {Triangular Room}
  3311. Triangular Room
  3312. WEST {Loud Room}
  3313. DOWN {1st Level}
  3314. LIGHT {Shining lantern}
  3315. END_ROOM
  3316.  
  3317. ROOM_DESCR {Triangular Room}
  3318. This is a strange triangular shaped room with passages leading off in all
  3319. directions.  Several of them have unfortunately been blocked by a recent
  3320. cave-in.  At a point equal-distant from the room's vertices, there is a
  3321. triangular staircase leading down.  Even though you shine your lantern down
  3322. the stairwell you are unable to see the bottom.
  3323. END_ROOM_DESCR
  3324.  
  3325. MESSAGE {It drops down the staircase}
  3326. The $NOUN$ falls down the staircase.  You can hear it banging and bouncing
  3327. as it makes its journey downward.  The sound gets weaker and weaker and
  3328. weaker.  Finally, it stops falling or is too far away for you to hear anymore.
  3329. END_MESSAGE
  3330.  
  3331. COMMAND DROP ANY
  3332. NOUNPresent
  3333. AtLocation {Triangular Room}
  3334. OR
  3335. AtLocation {1st Level}
  3336. OR
  3337. AtLocation {2nd Level}
  3338. OR
  3339. AtLocation {3rd Level}
  3340. OR
  3341. AtLocation {4th Level}
  3342. PrintMessage {It drops down the staircase}
  3343. SendNOUNToRoom {Gates of Hell}
  3344. DoneWithTurn
  3345. END_COMMAND
  3346.  
  3347. MESSAGE {Start Down}
  3348. You step on to the staircase and begin to climb down.  You climb down for
  3349. a long, long time.  You are getting warmer and quite tired.  You pause to
  3350. rest.
  3351. END_MESSAGE
  3352.  
  3353. COMMAND DOWN
  3354. AtLocation {Triangular Room}
  3355. PrintMessage {Start down}
  3356. BlankLine
  3357. END_COMMAND
  3358.  
  3359. MESSAGE {Going Down}
  3360. You resume your climb down.  Down and down you go, round and round you go, in
  3361. a spin, lovin the spin your in, under that old black magic ... called love,
  3362. etc....
  3363.  
  3364. It is quite warm here.  Once again, you pause to rest.
  3365. END_MESSAGE
  3366.  
  3367. COMMAND DOWN
  3368. AtLocation {1st Level}
  3369. PrintMessage {Going down}
  3370. BlankLine
  3371. END_COMMAND
  3372.  
  3373. MESSAGE {More Going Down}
  3374. You resume your climb down.  It is really getting hot here.  Once again, you
  3375. pause to rest.
  3376. END_MESSAGE
  3377.  
  3378. COMMAND DOWN
  3379. AtLocation {2nd Level}
  3380. OR
  3381. AtLocation {3rd Level}
  3382. PrintMessage {More Going down}
  3383. BlankLine
  3384. END_COMMAND
  3385.  
  3386. MESSAGE {Final Going Down}
  3387. With the end in sight, you make one last effort to finish these !@#$%^&ing
  3388. stairs.  You can hardly stand the heat.  Finally, you reach the bottom.
  3389. END_MESSAGE
  3390.  
  3391. COMMAND DOWN
  3392. AtLocation {4th Level}
  3393. PrintMessage {Final Going down}
  3394. BlankLine
  3395. END_COMMAND
  3396.  
  3397. ROOM {1st Level}
  3398. On the Stairs
  3399. UP {Triangular Room}
  3400. DOWN {2nd Level}
  3401. LIGHT {Shining lantern}
  3402. END_ROOM
  3403.  
  3404. ROOM_DESCR {1st Level}
  3405. You are on the stairs.  You can see a room far above you.
  3406. END_ROOM_DESCR
  3407.  
  3408. ROOM {2nd Level}
  3409. On the Stairs
  3410. DOWN {3rd Level}
  3411. UP {1st Level}
  3412. LIGHT {Shining lantern}
  3413. END_ROOM
  3414.  
  3415. ROOM_DESCR {2nd Level}
  3416. You are on the stairs.  The stairs seems to go on endlessly both above and
  3417. below you.
  3418. END_ROOM_DESCR
  3419.  
  3420. ROOM {3rd Level}
  3421. On the Stairs
  3422. DOWN {4th Level}
  3423. UP {2nd Level}
  3424. LIGHT {Shining lantern}
  3425. END_ROOM
  3426.  
  3427. ROOM_DESCR {3rd Level}
  3428. You are on the stairs.  The stairs seems to go on endlessly both above and
  3429. below you.
  3430. END_ROOM_DESCR
  3431.  
  3432. ROOM {4th Level}
  3433. On the Stairs
  3434. DOWN {Gates of Hell}
  3435. UP {3rd Level}
  3436. LIGHT {Shining lantern}
  3437. END_ROOM
  3438.  
  3439. ROOM_DESCR {4th Level}
  3440. You are on the stairs.  The stairs seems to go on endlessly above you.  Far
  3441. below, you can just make out a room where the stairs end.
  3442. END_ROOM_DESCR
  3443.  
  3444. ROOM {Gates of Hell}
  3445. Gates of Hell
  3446. UP {4th Level}
  3447. LOCKED_DOOR
  3448. LIGHT {Shining lantern}
  3449. END_ROOM
  3450.  
  3451. ROOM_DESCR {Gates of Hell}
  3452. You are outside a large gateway.  Above the gateway there is a large plaque
  3453. which is inscribed:
  3454.  
  3455.    Abandon every HELP all ye who enter here!
  3456.  
  3457. The gate is closed.  Through it you can see flames and hear cries of great
  3458. pain and agony.  It is incredibly hot!  The heat seems to be coming from
  3459. beyond the gate.  Stairs lead up.
  3460. END_ROOM_DESCR
  3461.  
  3462. NOUN {Bell}
  3463. Bell
  3464. Rusty
  3465. There is an old rusty bell here.
  3466. SIZE 20
  3467. WEIGHT 20
  3468. LOCATION {Gates of Hell}
  3469. END_NOUN
  3470.  
  3471. NOUN_DESCR {Bell}
  3472. The bell is quite old and very rusty.  There is an inscription that reads
  3473. 'RING FOR ATTENDANT'.
  3474. END_NOUN_DESCR
  3475.  
  3476. COMMAND OPEN GATE
  3477. AtLocation {Gates of Hell}
  3478. PrintMessage "You try unsuccessfully to open the gate, but it is locked."
  3479. DoneWithTurn
  3480. END_COMMAND
  3481.  
  3482. FLAG {Has visited Hell}
  3483.  
  3484. MESSAGE {1st Bell Ring}
  3485. A few moments after you ring the bell, you hear a voice cry out, "Hold your
  3486. horses, I'm coming........damn tourists..."  A little old man in a red velvet
  3487. suit appears on the other side of the gates.  He produces a key from a pocket
  3488. of his coat and unlocks the gate.
  3489.  
  3490. "Welcome to the 12592nd level of Hell.  My name is Fred and I will be your
  3491. guide for today's tour", he says.
  3492.  
  3493. "This level of Hell is reserved for Adventure game writers.  Here, we
  3494. specialize in giving these cruel people some of the same kind of torment that
  3495. they gave to those unfortunates that played their fiendish creations.  It
  3496. doesn't matter that the game players played willingly -- in their quest for
  3497. masochistic pleasures.  No!  No!  No!  Just because the victim is foolish
  3498. enough to think he or she is enjoying the experience, doesn't make the crime
  3499. any less heinous.  These wicked Adventure game writers were no better than
  3500. drug pushers preying on the mental weaknesses of Adventure junkies."
  3501.  
  3502. "Remember, as you tour this level of Hell that these people deserve their
  3503. eternal torment!  They are just being repaid for the misery they have give to
  3504. others.  Do not pity them.  Save you pity for their unfortunate victims!"
  3505.  
  3506. With that introduction finished, Fred begins the tour.  You follow him down a
  3507. long winding path.  You finally stop by the edge of a cliff.  In the distance
  3508. below you is a dark labyrinth of high thorny hedges.  In the middle of the
  3509. labyrinth, you can see two figures groping along the hedge walls.  As they
  3510. reach out to touch the hedges, they recoil in pain from touching the thorns.
  3511.  
  3512. Fred chuckles.  "That is Will Crowther and Don Woods.  They started it all by
  3513. writing the first Adventure game -- called simply ADVENTURE.  They are now
  3514. doomed to search in the dark through a maze of twisty little passages.  They
  3515. are trying to find the vending machine to buy some batteries for their
  3516. lantern.  They will search forever -- in vain.  A fitting punishment, don't
  3517. you agree?"
  3518.  
  3519. Fred chuckles again and wanders down the path to the north.  After a few
  3520. minutes you arrive at a pleasant sunny meadow.  Off to the south at the edge
  3521. of the meadow is a swampy area.  In the middle of the swamp, buried in the mud
  3522. is a very strange sight.  A bearded man is trapped under a sleeping dragon.
  3523. He alternates between trying to wake the dragon and trying to dig himself free
  3524. in the mud.  He continues to struggle, but to no avail.
  3525.  
  3526. Fred explains, "That is Scott Adams.  He wrote ADVENTURELAND, PIRATE ADVENTURE
  3527. and many, many others.  His Adventure games were the first written for
  3528. microcomputers.  Now, he is getting a taste of his own medicine."
  3529.  
  3530. "Let's move on."  Fred proceeds to walk to the east.  The ground rises gently
  3531. until you find yourself overlooking a deep chasm.  On one side of the chasm
  3532. you see a man.  Directly across from him is a woman.  Both are shouting secret
  3533. words with very hoarse voices.  They continue to shout out every silly word
  3534. imaginable.  There doesn't seem to be any result from their efforts except
  3535. their voices get hoarser.
  3536.  
  3537. "Ken and Roberta Williams.  They wrote THE WIZARD AND THE PRINCESS, and KING'S
  3538. QUEST I, II, III, IV, V, VI, VII, VIII, etc." explains Fred.  "After they
  3539. discover the correct secret word, Artichoke, they will get to ride in a leaky
  3540. boat with no way to fix the leak."  He chuckles again.
  3541.  
  3542. You follow Fred as he continues on the path to the south.  You finally come to
  3543. an old house and enter through a broken window (sound familiar?).  Fred lifts
  3544. a rug, brush aside some leaves and you both peek into a dark room through a
  3545. small grate.  Below, you see two men trapped in a brick-walled room.  There
  3546. are no doors or windows in the room.  The only exit is the grate and it is
  3547. locked on the outside.  However, even if the grate was unlocked it would do no
  3548. good, as both men are too big to fit through the grate.
  3549.  
  3550. "The only way out of the room is by saying the word 'Ahriman'.  Ahriman was
  3551. one of the gods of Zoroastrian mythology", Fred whispers.  "After they figure
  3552. that one out, we have some really hard puzzles for them.  They are Dave
  3553. Lebling and Marc Blank.  They wrote the ZORK series.  You know those, of
  3554. course, -- ZORK I, ZORK II, ZORK III, ZORK ZERO, BEYOND ZORK, INSIDE ZORK,
  3555. OUTSIDE ZORK, UNDER ZORK, SON OF ZORK, RETURN TO ZORK, BRIDE OF ZORK, 2ND
  3556. COUSIN OF ZORK, ZORK MINUS 47, IN SEARCH OF ZORK, ZORK'S REVENGE, ZORK -- THE
  3557. SEQUEL, THE HITCHHIKER'S GUIDE TO ZORK, NIGHT OF THE LIVING ZORK, THE
  3558. ESSENTIAL ZORK, THE NON-ESSENTIAL ZORK, ZORK TRIVIA, ZORK CONFIDENTIAL, THE
  3559. VALLEY OF ZORK, IT CAME FROM ZORK, TALES OF ZORK, THE CREATURE FROM ZORK, ZORK
  3560. UNCHAINED, ZORK OBSERVED, THE COMPLEAT ZORK, et al.  For all the pain they have
  3561. caused Adventure game players, these two deserve some really terrible
  3562. punishment, but there are some things that are even too nasty and gross for
  3563. Hell."
  3564.  
  3565. Fred puts the leaves back over the grate, puts the rug over the leaves, and
  3566. then leads you outside the house.  You continue the tour for the remainder of
  3567. the afternoon.  Finally, exhausted, you return to the entrance gate.
  3568.  
  3569. "Well, I hope you have enjoyed the tour of level 12592 of Hell.  And remember,
  3570. those fiends deserve their fate or worse.  Don't pity them.  Instead, pity
  3571. their victims -- those poor misguided Adventure game players who can't kick
  3572. their evil habits!", Fred concludes.
  3573.  
  3574. He shakes your hand, says good bye, opens the gate for you to leave and then
  3575. locks it behind you.  You find yourself back outside the gate to Hell.  Fred
  3576. disappears down the path on the other side.
  3577. END_MESSAGE
  3578.  
  3579. COMMAND RING
  3580. FlagOFF {Has visited Hell}
  3581. AtLocation {Gates of Hell}
  3582. PrintMessage {1st Bell Ring}
  3583. PlusScore 15
  3584. TurnFlagON {Has visited Hell}
  3585. DoneWithTurn
  3586. END_COMMAND
  3587.  
  3588. MESSAGE {Later Bell Ring}
  3589. Ding! Dong!.
  3590. END_MESSAGE
  3591.  
  3592. COMMAND RING
  3593. Present {Bell}
  3594. PrintMessage {Later Bell Ring}
  3595. DoneWithTurn
  3596. END_COMMAND
  3597.  
  3598. MESSAGE {Starting Up}
  3599. You step on to the stairs and begin to climb up.  It seems like a very easy
  3600. climb and you don't even have to pause to rest.  You notice that it seems to
  3601. get cooler as you climb.  Finally, you reach the top of the stairs almost
  3602. refreshed for your little bout of exercise.  (One of the wonders of Adventure
  3603. Games is that they need not be logical, consistent or fair.  Sometimes, this
  3604. works to the player's advantage -- like now.)
  3605.  
  3606. END_MESSAGE
  3607.  
  3608. COMMAND UP
  3609. AtLocation {Gates of Hell}
  3610. PrintMessage {Starting Up}
  3611. GoToRoom {Triangular Room}
  3612. DoneWithTurn
  3613. END_COMMAND
  3614.  
  3615.  
  3616. REM SUMO Stuff
  3617.  
  3618. MESSAGE {You are not an undertaker}
  3619. What are you some kind of fiend?  The last time I checked, you were an
  3620. adventurer -- not an undertaker.  The $ADJECTIVE$ $NOUN$ is dead!
  3621. END_MESSAGE
  3622.  
  3623. COMMAND GET SUMO
  3624. Present {Dead Sumo}
  3625. PrintMessage {You are not an undertaker}
  3626. DoneWithTurn
  3627. END_COMMAND
  3628.  
  3629. COMMAND GET TAX COLLECTOR
  3630. Present {Dead Tax Collector}
  3631. PrintMessage {You are not an undertaker}
  3632. DoneWithTurn
  3633. END_COMMAND
  3634.  
  3635.  
  3636. MESSAGE {He is already dead}
  3637. What are you some kind of fiend?  The $ADJECTIVE$ $NOUN$ is already dead!
  3638. END_MESSAGE
  3639.  
  3640. MESSAGE {Sumo Jerk Message}
  3641. Attacking with your bare hands is worse than not doing anything at all - you
  3642. can slip and fall under the sumo.  Bring a weapon next game, jerk.
  3643.  
  3644. END_MESSAGE
  3645.  
  3646. MESSAGE {Sumo Dies}
  3647. The sumo, in a great rage, accidentally sits on himself.  Needless to say, he
  3648. dies.  Nice work.
  3649. END_MESSAGE
  3650.  
  3651. MESSAGE {Sumo kills you}
  3652. The sumo sits on you, and farts several times.  You can guess what happens.
  3653. END_MESSAGE
  3654.  
  3655. MESSAGE {Fire at Sumo #1}
  3656. You're still recovering from last round.
  3657. END_MESSAGE
  3658.  
  3659. MESSAGE {Fire at Sumo #2}
  3660. Pretty sad case.  You slip and fall, and barely avoid the sumo as he tries to
  3661. sit on you.  By the way, you're also stunned.
  3662. END_MESSAGE
  3663.  
  3664. MESSAGE {Fire at Sumo #3}
  3665. Nice move.  When you fired the gun, it ricocheted and almost hit you.  Lucky.
  3666. END_MESSAGE
  3667.  
  3668. MESSAGE {Fire at Sumo #4}
  3669. All right!  Your gun jams!  Too bad, you won't be able to attack quite yet.
  3670. END_MESSAGE
  3671.  
  3672. MESSAGE {Fire at Sumo #5}
  3673. The shot from your gun ricochets all around the room, and finally hits the
  3674. sumo for minimal damage.
  3675. END_MESSAGE
  3676.  
  3677. MESSAGE {Fire at Sumo #6}
  3678. The shot scares pants off the sumo.  Embarrassed, he turns around and puts
  3679. them back on.
  3680. END_MESSAGE
  3681.  
  3682. MESSAGE {Fire at Sumo #7}
  3683. The shot hits the sumo squarely.  He starts to cry.
  3684. END_MESSAGE
  3685.  
  3686. MESSAGE {Fire at Sumo #9}
  3687. Your shot is perfect.  The sumo is hit right in the forehead.  However, he has
  3688. a fairly thick skull.
  3689. END_MESSAGE
  3690.  
  3691. MESSAGE {Fire at Sumo #10}
  3692. The sumo is really terrified of you.  He farts on himself.
  3693. END_MESSAGE
  3694.  
  3695. MESSAGE {Fire at Sumo #11}
  3696. When the gun fires, the sumo gets really freaked.  He screams and almost breaks
  3697. his head bashing it against a wall.
  3698. END_MESSAGE
  3699.  
  3700. MESSAGE {Attack Sumo #1}
  3701. You want to $VERB$ $NOUN$?  You must be some kind of fruit cake!
  3702. END_MESSAGE
  3703.  
  3704. MESSAGE {Attack Sumo #2}
  3705. The sumo, trying to avoid looking at your face, doesn't attack.
  3706. END_MESSAGE
  3707.  
  3708. MESSAGE {Attack Sumo #3}
  3709. The sumo tries to sit on you, but instead misses and lands on a tack.  Ouch!
  3710. END_MESSAGE
  3711.  
  3712. MESSAGE {Attack Sumo #5}
  3713. The sumo is still thinking about whether to step with its right or left foot
  3714. first, so it doesn't attack.
  3715. END_MESSAGE
  3716.  
  3717. MESSAGE {Attack Sumo #6}
  3718. The sumo tries to sit on you.  However, you dive away and land on a sharp rock.
  3719. END_MESSAGE
  3720.  
  3721. MESSAGE {Attack Sumo #7}
  3722. The sumo falls down, and in the following earthquake you are trying to keep
  3723. your balance.
  3724. END_MESSAGE
  3725.  
  3726. MESSAGE {Attack Sumo #9}
  3727. The sumo looks at you.  You scream in agony, and bash your head against a wall.
  3728. END_MESSAGE
  3729.  
  3730. MESSAGE {Attack Sumo #10}
  3731. The sumo hold up a mirror.  You choke and gasp for better air for a minute or
  3732. two.
  3733. END_MESSAGE
  3734.  
  3735. MESSAGE {Attack Sumo #11}
  3736. The sumo sits on you, but before the second is up you escape.  Every bone in
  3737. your body is broken.
  3738. END_MESSAGE
  3739.  
  3740. COMMAND SHOOT SUMO
  3741. Present {Dead Sumo}
  3742. Present {Handgun}
  3743. PrintMessage {He is already dead}
  3744. DoneWithTurn
  3745. END_COMMAND
  3746.  
  3747. COMMAND SHOOT SUMO
  3748. Chance 75
  3749. Present {Live Sumo}
  3750. Present {Handgun}
  3751. RandomMessage {Fire at Sumo #1} {Fire at Sumo #11}
  3752. DoneWithTurn
  3753. END_COMMAND
  3754.  
  3755. COMMAND SHOOT SUMO
  3756. Chance 50
  3757. Present {Live Sumo}
  3758. Present {Handgun}
  3759. PrintMessage {Sumo Dies}
  3760. SwapLocations {Live Sumo} {Dead Sumo}
  3761. DoneWithTurn
  3762. END_COMMAND
  3763.  
  3764. COMMAND SHOOT SUMO
  3765. Present {Live Sumo}
  3766. Present {Handgun}
  3767. PrintMessage {Sumo kills you}
  3768. BlankLine
  3769. GoToRoom {Funeral}
  3770. DoneWithTurn
  3771. END_COMMAND
  3772.  
  3773.  
  3774. COMMAND ATTACK SUMO
  3775. Present {Dead Sumo}
  3776. PrintMessage {He is already dead}
  3777. DoneWithTurn
  3778. END_COMMAND
  3779.  
  3780. COMMAND ATTACK SUMO
  3781. Chance 75
  3782. Present {Live Sumo}
  3783. PrintMessage {Sumo Jerk message}
  3784. RandomMessage {Attack Sumo #1} {Attack Sumo #11}
  3785. DoneWithTurn
  3786. END_COMMAND
  3787.  
  3788. COMMAND ATTACK SUMO
  3789. Chance 50
  3790. Present {Live Sumo}
  3791. PrintMessage {Sumo Dies}
  3792. SwapLocations {Live Sumo} {Dead Sumo}
  3793. DoneWithTurn
  3794. END_COMMAND
  3795.  
  3796. COMMAND ATTACK SUMO
  3797. Present {Live Sumo}
  3798. PrintMessage {Sumo kills you}
  3799. BlankLine
  3800. GoToRoom {Funeral}
  3801. DoneWithTurn
  3802. END_COMMAND
  3803.  
  3804.  
  3805. REM TAX COLLECTOR Stuff
  3806.  
  3807. MESSAGE {Tax Collector Jerk Message}
  3808. Attacking with your bare hands is worse than not doing anything at all - you
  3809. can slip and he can tax you on that.  Bring a weapon next game, jerk.
  3810.  
  3811. END_MESSAGE
  3812.  
  3813. MESSAGE {Tax Collector Dies}
  3814. The collector has a fit when he doesn't have anything to tax.  He compulsively
  3815. taxes himself, and has a major heart attack.  He was a nice fellow away from
  3816. the job, too.
  3817. END_MESSAGE
  3818.  
  3819. MESSAGE {Tax Collector kills you}
  3820. Oh well.  With a yell of triumph, the collector screams and hurls a mountain of
  3821. taxes at you.  Guess what.
  3822. END_MESSAGE
  3823.  
  3824. MESSAGE {Shoot at Tax Collector #1}
  3825. Nice move.  You shoot at the collector, but he taxes you on aiming the gun!
  3826. You decide not to fire - who knows how much that costs!
  3827. END_MESSAGE
  3828.  
  3829. MESSAGE {Shoot at Tax Collector #2}
  3830. All right.  When you fire your gun, it ricochets off a pile of old taxes and
  3831. almost kills you.
  3832. END_MESSAGE
  3833.  
  3834. MESSAGE {Shoot at Tax Collector #3}
  3835. The shot hits the collector and wounds him, but runs away before it can be
  3836. taxed or do more damage.
  3837. END_MESSAGE
  3838.  
  3839. MESSAGE {Shoot at Tax Collector #4}
  3840. The collector gets scared when he can't tax you on anything.  He dives under a
  3841. pile of tax forms to avoid your shot.
  3842. END_MESSAGE
  3843.  
  3844. MESSAGE {Shoot at Tax Collector #7}
  3845. Beautiful shot.  You wasted a pile of forms, and the collector screams in pain.
  3846. END_MESSAGE
  3847.  
  3848. MESSAGE {Shoot at Tax Collector #8}
  3849. The tax collector gets really scared, and has to tax himself for lack of
  3850. anything else.
  3851. END_MESSAGE
  3852.  
  3853. MESSAGE {Shoot at Tax Collector #9}
  3854. Your perfect shot destroys a pile of papers and blows a hole in the collector.
  3855. END_MESSAGE
  3856.  
  3857. MESSAGE {Attack Tax Collector #1}
  3858. The collector, organizing his forms, doesn't attack.
  3859. END_MESSAGE
  3860.  
  3861. MESSAGE {Attack Tax Collector #2}
  3862. The collector tries to throw a property tax at you, but you don't own anything.
  3863. END_MESSAGE
  3864.  
  3865. MESSAGE {Attack Tax Collector #3}
  3866. He tries to tax you on your possessions, but you stole them.
  3867. END_MESSAGE
  3868.  
  3869. MESSAGE {Attack Tax Collector #4}
  3870. The collector tries to slap an ugly tax on you, but then you show him a picture
  3871. of himself.
  3872. END_MESSAGE
  3873.  
  3874. MESSAGE {Attack Tax Collector #5}
  3875. The collector taxes you on not having a brain.  You disagree, but then you
  3876. clean out your ear and your head caves in.  Maybe he has a point.
  3877. END_MESSAGE
  3878.  
  3879. MESSAGE {Attack Tax Collector #7}
  3880. The collector pushes over a stack of papers.  They land on you.  Painful.
  3881. END_MESSAGE
  3882.  
  3883. MESSAGE {Attack Tax Collector #9}
  3884. He fires a paper airplane made out of a form at you.  You choke in amazement
  3885. of how it flies to well.
  3886. END_MESSAGE
  3887.  
  3888. MESSAGE {Attack Tax Collector #10}
  3889. You are buried under a mountain of paper, and get cut up by a paper helicopter.
  3890. END_MESSAGE
  3891.  
  3892. MESSAGE {Attack Tax Collector #11}
  3893. The collector taxes you on `Every breath you take, every move you make...'
  3894. - and he'll be watching you.  You make like Hitler.
  3895. END_MESSAGE
  3896.  
  3897. COMMAND SHOOT TAX COLLECTOR
  3898. Present {Dead Tax Collector}
  3899. Present {Handgun}
  3900. PrintMessage {He is already dead}
  3901. DoneWithTurn
  3902. END_COMMAND
  3903.  
  3904. COMMAND SHOOT TAX COLLECTOR
  3905. Chance 75
  3906. Present {Tax Collector}
  3907. Present {Handgun}
  3908. RandomMessage {Shoot at Tax Collector #1} {Shoot at Tax Collector #9}
  3909. DoneWithTurn
  3910. END_COMMAND
  3911.  
  3912. COMMAND SHOOT TAX COLLECTOR
  3913. Chance 50
  3914. Present {Tax Collector}
  3915. Present {Handgun}
  3916. PrintMessage {Tax Collector Dies}
  3917. SwapLocations {Tax Collector} {Dead Tax Collector}
  3918. DoneWithTurn
  3919. END_COMMAND
  3920.  
  3921. COMMAND SHOOT TAX COLLECTOR
  3922. Present {Tax Collector}
  3923. Present {Handgun}
  3924. PrintMessage {Tax Collector kills you}
  3925. BlankLine
  3926. GoToRoom {Funeral}
  3927. DoneWithTurn
  3928. END_COMMAND
  3929.  
  3930. COMMAND ATTACK TAX COLLECTOR
  3931. Present {Dead Tax Collector}
  3932. PrintMessage {He is already dead}
  3933. DoneWithTurn
  3934. END_COMMAND
  3935.  
  3936. COMMAND ATTACK TAX COLLECTOR
  3937. Chance 75
  3938. Present {Tax Collector}
  3939. PrintMessage {Tax Collector Jerk Message}
  3940. RandomMessage {Attack Tax Collector #1} {Attack Tax Collector #11}
  3941. DoneWithTurn
  3942. END_COMMAND
  3943.  
  3944. COMMAND ATTACK TAX COLLECTOR
  3945. Chance 50
  3946. Present {Tax Collector}
  3947. PrintMessage {Tax Collector Dies}
  3948. SwapLocations {Tax Collector} {Dead Tax Collector}
  3949. DoneWithTurn
  3950. END_COMMAND
  3951.  
  3952. COMMAND ATTACK TAX COLLECTOR
  3953. Present {Tax Collector}
  3954. PrintMessage {Tax Collector kills you}
  3955. BlankLine
  3956. GoToRoom {Funeral}
  3957. DoneWithTurn
  3958. END_COMMAND
  3959.  
  3960.  
  3961.  
  3962. REM HELP
  3963.  
  3964. MESSAGE {Default Help Message}
  3965. No way, Jose!  Ha ha!  No, I won't help.  For help, make out a check for $500
  3966. to David Malmberg (or better yet -- Cash), and send it to him.  Help will
  3967. arrive in the mail.
  3968. END_MESSAGE
  3969.  
  3970. COMMAND HELP
  3971. PrintMessage {Default Help Message}
  3972. DoneWithTurn
  3973. END_COMMAND
  3974.  
  3975.  
  3976. REM EXAMINE
  3977.  
  3978. COMMAND EXAMINE WINDOW
  3979. AtLocation {Inside House}
  3980. OR
  3981. AtLocation {East of House}
  3982. PrintMessage "The window is smashed, but wide enough for you to get through."
  3983. DoneWithTurn
  3984. END_COMMAND
  3985.  
  3986.  
  3987. REM GET
  3988.  
  3989. MESSAGE {Vault Disappears}
  3990. When you try to take it, the vault disappears.  This vault does its job well!!!
  3991. END_MESSAGE
  3992.  
  3993. COMMAND GET VAULT
  3994. InRoom {Bank Vault}
  3995. Destroy {Bank Vault}
  3996. PrintMessage {Vault Disappears}
  3997. DoneWithTurn
  3998. END_COMMAND
  3999.  
  4000. COMMAND GET ALL
  4001. PrintMessage "You can't see any ALL detergent here!!!"
  4002. DoneWithTurn
  4003. END_COMMAND
  4004.  
  4005. COMMAND DROP ALL
  4006. PrintMessage "You don't even have the ALL detergent!"
  4007. DoneWithTurn
  4008. END_COMMAND
  4009.  
  4010.  
  4011. REM SMOKE POT/USE DRUGS/LIGHT POT
  4012.  
  4013. VARIABLE {Joints Smoked}
  4014. COUNTER {Turns player is high}
  4015.  
  4016. COMMAND SMOKE POT
  4017. VariableEquals {Joints Left} 0
  4018. PrintMessage "There is no more pot left to smoke -- sorry!"
  4019. DoneWithTurn
  4020. END_COMMAND
  4021.  
  4022. COMMAND SMOKE POT
  4023. NOT Present {Mary Jane}
  4024. PrintMessage "You can't see any pot here."
  4025. DoneWithTurn
  4026. END_COMMAND
  4027.  
  4028. COMMAND SMOKE POT
  4029. Present {Mary Jane}
  4030. NOT Present {matches}
  4031. PrintMessage "With what do you wish to light it?  Your dragon breath?"
  4032. DoneWithTurn
  4033. END_COMMAND
  4034.  
  4035. MESSAGE {You smoke a joint}
  4036. You strike up a match and start smoking a joint of pot.  After a few
  4037. lung-fulls, you get very high and will stay so for about 10 turns.
  4038. END_MESSAGE
  4039.  
  4040. COMMAND SMOKE POT
  4041. Present {Mary Jane}
  4042. VariableGT {matches left} 0
  4043. VariableGT {Joints Left} 0
  4044. PrintMessage {You smoke a joint}
  4045. TurnCounterON {Turns player is high}
  4046. AddToVariable {Joints Smoked} 1
  4047. SubtractFromVariable {matches left} 1
  4048. SubtractFromVariable {Joints Left} 1
  4049. VariableEquals {matches left} 0
  4050. PrintMessage {That was your last match}
  4051. Destroy {matches}
  4052. END_COMMAND
  4053.  
  4054. COMMAND SMOKE POT
  4055. VariableEquals {Joints Left} 0
  4056. PrintMessage "Unfortunately, that was your last joint of pot."
  4057. Destroy {candles}
  4058. END_COMMAND
  4059.  
  4060. COMMAND SMOKE POT
  4061. DoneWithTurn
  4062. END_COMMAND
  4063.  
  4064.  
  4065. REM LIGHT
  4066.  
  4067. MESSAGE {No more matches}
  4068. There are no more matches left.  Too bad, buddy.
  4069. END_MESSAGE
  4070.  
  4071. COMMAND LIGHT ANY
  4072. VariableEquals {matches left} 0
  4073. PrintMessage {No more matches}
  4074. DoneWithTurn
  4075. END_COMMAND
  4076.  
  4077. COMMAND LIGHT ANY
  4078. AtLocation {Chili Contest}
  4079. OR
  4080. AtLocation {Smelly Room}
  4081. PrintMessage "As you strike the match, the gas in the room explodes and guess what happens."
  4082. BlankLine
  4083. GoToRoom {funeral}
  4084. DoneWithTurn
  4085. END_COMMAND
  4086.  
  4087. MESSAGE {That was your last match}
  4088. That was your last match.
  4089. END_MESSAGE
  4090.  
  4091. COMMAND LIGHT POT
  4092. ReDirectTo SMOKE POT
  4093. END_COMMAND
  4094.  
  4095. COMMAND LIGHT MATCH
  4096. Present {matches}
  4097. VariableGT {matches left} 0
  4098. PrintMessage "You strike a match which glows brightly and then goes out."
  4099. SubtractFromVariable {matches left} 1
  4100. VariableEquals {matches left} 0
  4101. PrintMessage {That was your last match}
  4102. Destroy {matches}
  4103. END_COMMAND
  4104.  
  4105. COMMAND LIGHT MATCH
  4106. DoneWithTurn
  4107. END_COMMAND
  4108.  
  4109. COMMAND LIGHT CANDLE
  4110. VariableEquals {candles left} 0
  4111. PrintMessage "You know, that's impossible to do without candles."
  4112. DoneWithTurn
  4113. END_COMMAND
  4114.  
  4115. COMMAND LIGHT CANDLE
  4116. Present {matches}
  4117. VariableGT {matches left} 0
  4118. VariableGT {candles left} 0
  4119. PrintMessage "You light the candle which glows brightly and then goes out."
  4120. SubtractFromVariable {matches left} 1
  4121. SubtractFromVariable {candles left} 1
  4122. VariableEquals {matches left} 0
  4123. PrintMessage {That was your last match}
  4124. Destroy {matches}
  4125. END_COMMAND
  4126.  
  4127. COMMAND LIGHT CANDLE
  4128. VariableEquals {candles left} 0
  4129. PrintMessage "Unfortunately, that was your last candle."
  4130. Destroy {candles}
  4131. END_COMMAND
  4132.  
  4133. COMMAND LIGHT CANDLE
  4134. DoneWithTurn
  4135. END_COMMAND
  4136.  
  4137.  
  4138. COMMAND FART
  4139. PrintMessage "Aaaahhhhhhhhh!  That was really nice!"
  4140. DoneWithTurn
  4141. END_COMMAND
  4142.  
  4143. COMMAND PLAY GUITAR
  4144. Present {Guitar}
  4145. PrintMessage "Sorry, but the guitar is hopelessly out of tune."
  4146. DoneWithTurn
  4147. END_COMMAND
  4148.  
  4149. ;SOME DEFAULTS
  4150.  
  4151. MESSAGE {He doesn't seem to be interested}
  4152. He doesn't seem to be interested.  What a lousy salesman you'd make!!!
  4153. END_MESSAGE
  4154.  
  4155. COMMAND SHOW ANY
  4156. PrintMessage {He doesn't seem to be interested}
  4157. DoneWithTurn
  4158. END_COMMAND
  4159.  
  4160. COMMAND GIVE ANY
  4161. PrintMessage {He doesn't seem to be interested}
  4162. DoneWithTurn
  4163. END_COMMAND
  4164.  
  4165. MESSAGE {My we're feeling violent today!}
  4166. My we're feeling violent today!
  4167. END_MESSAGE
  4168.  
  4169. COMMAND DESTROY ANY
  4170. PrintMessage {My we're feeling violent today!}
  4171. DoneWithTurn
  4172. END_COMMAND
  4173.  
  4174. COMMAND SHOOT ANY
  4175. PrintMessage {My we're feeling violent today!}
  4176. DoneWithTurn
  4177. END_COMMAND
  4178.  
  4179. COMMAND FIND ANY
  4180. NOUNPresent
  4181. PrintMessage "You must be blind as a bat!  It is right in front of your nose, turkey!"
  4182. DoneWithTurn
  4183. END_COMMAND
  4184.  
  4185. COMMAND FIND ANY
  4186. PrintMessage "Sorry, but it is impossible to $VERB$ the $NOUN$, turkey!"
  4187. DoneWithTurn
  4188. END_COMMAND
  4189.  
  4190.  
  4191. REM PUT
  4192.  
  4193. MESSAGE {This is not a trophy case}
  4194. This is a bank vault, not a trophy case to store odds and ends.  Only valuable
  4195. stuff, please.
  4196. END_MESSAGE
  4197.  
  4198. VARIABLE {Number of treasures in vault}
  4199.  
  4200. MESSAGE {You drop a treasure in vault}
  4201. As you put the treasure in the bank vault, a voice booms out: `Well done!
  4202. You have collected #VAR{Number of treasures in vault}# treasure(s) so far out of a total of {Total number of treasures}.'
  4203. END_MESSAGE
  4204.  
  4205. MESSAGE {Win Game Message}
  4206. As you put the last treasure in the bank vault, it closes and disappears
  4207. behind a painting.  Just then, a booming voice says: `You have completed
  4208. your quest in PORK I, worthy one!
  4209.  
  4210. However, because this voice is so amazingly loud, it starts an earthquake.
  4211. A crack opens up in the earth, and you fall into the land of PORK II !!!
  4212. END_MESSAGE
  4213.  
  4214. COMMAND PUT ANY IN VAULT
  4215. InRoom {Bank Vault}
  4216. NOUNPresent
  4217. NOT {Is a treasure?}
  4218. PrintMessage {This is not a trophy case}
  4219. DoneWithTurn
  4220. END_COMMAND
  4221.  
  4222. COMMAND PUT ANY IN VAULT
  4223. InRoom {Bank Vault}
  4224. NOUNPresent
  4225. {Is a treasure?}
  4226. AddToVariable {Number of treasures in vault} 1
  4227. END_COMMAND
  4228.  
  4229. COMMAND PUT ANY IN VAULT
  4230. InRoom {Bank Vault}
  4231. NOUNPresent
  4232. {Is a treasure?}
  4233. VariableEquals {Number of treasures in vault} {Total number of treasures}
  4234. PrintMessage {Win Game Message}
  4235. SendNOUNToRoom {Bank Vault}
  4236. WinGame
  4237. TurnFlagON {Quitting}
  4238. ReDirectTo SCORE
  4239. END_COMMAND
  4240.  
  4241. COMMAND PUT ANY IN VAULT
  4242. InRoom {Bank Vault}
  4243. NOUNPresent
  4244. {Is a treasure?}
  4245. PrintMessage {You drop a treasure in vault}
  4246. SendNOUNToRoom {Bank Vault}
  4247. DoneWithTurn
  4248. END_COMMAND
  4249.  
  4250. MESSAGE {Leave it alone}
  4251. A voice booms out, 'Leave the !@#$%^&ing $NOUN$ alone, turkey!'
  4252. END_MESSAGE
  4253.  
  4254. COMMAND GET SIGN
  4255. PrintMessage {Leave it alone}
  4256. DoneWithTurn
  4257. END_COMMAND
  4258.  
  4259. COMMAND GET BATTERIES
  4260. NOT NOUNPresent
  4261. PrintMessage "A voice booms out, 'You'll have to find the !@#$%^&ing batteries, turkey!'"
  4262. DoneWithTurn
  4263. END_COMMAND
  4264.  
  4265. COMMAND GET ANY
  4266. Present {Bank Vault}
  4267. {Is a treasure?}
  4268. NOUNIsLocated {Bank Vault}
  4269. SubtractFromVariable {Number of treasures in vault} 1
  4270. END_COMMAND
  4271.  
  4272. COMMAND ECHO
  4273. PrintMessage "Sorry, but '$VERB$' doesn't work in this game.  Nice try, however!"
  4274. DoneWithTurn
  4275. END_COMMAND
  4276.  
  4277. COMMAND OOPS
  4278. PrintMessage "What do you mean 'OOPS'?.  Can't you type and/or spell?"
  4279. DoneWithTurn
  4280. END_COMMAND
  4281.  
  4282.  
  4283. REM ANY Stuff
  4284.  
  4285. MESSAGE {Tax Collector steals treasures}
  4286. A mean, cruel, small, sadistic, and all around bad-kind-of-guy tax collector
  4287. walks into the room, and taxes you on paying taxes.  He carries off all your
  4288. valuables in exchange for not being taxed.
  4289. END_MESSAGE
  4290.  
  4291. FLAG {First Turn of Game}
  4292. FLAG {Grue Following Player}
  4293. FLAG {Grue has taken player}
  4294. FLAG {Frog Following Player}
  4295.  
  4296. COMMAND ANY
  4297. FlagOFF {First Turn of Game}
  4298. TurnFlagON {First Turn of Game}
  4299. TurnFlagOFF {Quitting}
  4300. SetVariableTo {Joints Smoked} 0
  4301. SetVariableTo {matches left} 10
  4302. SetVariableTo {Joints Left} 5
  4303. SetVariableTo {candles left} 5
  4304. SetVariableTo {Battery Life} 150
  4305. SetVariableTo {Number of treasures in vault} 0
  4306. END_COMMAND
  4307.  
  4308. COMMAND ANY
  4309. FlagON {Lamp is ON}
  4310. SubtractFromVariable {Battery Life} 1
  4311. END_COMMAND
  4312.  
  4313. COMMAND ANY
  4314. FlagON {Lamp is ON}
  4315. VariableEquals {Battery Life} 26
  4316. Present {Shining lantern}
  4317. BlankLine
  4318. PrintMessage {Give hint about batteries}
  4319. BlankLine
  4320. END_COMMAND
  4321.  
  4322. COMMAND ANY
  4323. FlagON {Lamp is ON}
  4324. VariableLT {Battery Life} 26
  4325. VariableGT {Battery Life} 0
  4326. Present {Shining lantern}
  4327. BlankLine
  4328. PrintMessage {Your lamp is growing weaker}
  4329. BlankLine
  4330. END_COMMAND
  4331.  
  4332. COMMAND ANY
  4333. FlagON {Lamp is ON}
  4334. Present {Shining lantern}
  4335. VariableEquals {Battery Life} 0
  4336. TurnFlagOFF {Lamp is ON}
  4337. PrintMessage "Your lamp has just gone out."
  4338. SwapLocations {Shining lantern} {Brass unlit lantern}
  4339. BlankLine
  4340. END_COMMAND
  4341.  
  4342. MESSAGE {It is now dark}
  4343. It is pitch black.  You can't see your hand in front of your face.
  4344. END_MESSAGE
  4345.  
  4346. MESSAGE {Grue will get you}
  4347. In the dark you are likely to be eaten by a gruesome Grue.
  4348. END_MESSAGE
  4349.  
  4350. MESSAGE {Grue got you}
  4351. You hear a rustling sound behind you.  Then you are grabbed from behind and
  4352. lifted off your feet.  You fight back -- but without success.
  4353.  
  4354. AAAaaaaaaaaaaaaarrrrrrrrrrrggggggghhhhhh!!!!
  4355.  
  4356. You are being carried off by a Grue.  Your life will soon be over.  What a
  4357. terrible way to die -- eaten by a Grue!  You finally pass out from fear.
  4358.  
  4359. Time passes.....and passes.....and passes...................................
  4360.  
  4361. You finally awake and when you recover your senses, you find the Grue has just
  4362. lifted your arm up to his mouth and he is licking your hand.  Perhaps this is
  4363. his way of preparing his food.  He licks some more and then begins to make a
  4364. purring-like sound.
  4365.  
  4366. END_MESSAGE
  4367.  
  4368. FLAG {Continue Meta-command}
  4369.  
  4370. COMMAND ANY
  4371. TurnFlagOFF {Continue Meta-command}
  4372. FlagOFF {Grue has taken player}
  4373. FlagOFF {Lamp is ON}
  4374. RoomNeedsLight
  4375. PrintMessage {It is now dark}
  4376. PrintMessage {Grue will get you}
  4377. NOT AtLocation {Grue's Lair}
  4378. Chance 25
  4379. VariableEquals {Battery Life} 0
  4380. TurnFlagON {Continue Meta-command}
  4381. END_COMMAND
  4382.  
  4383. COMMAND ANY
  4384. FlagOFF {Continue Meta-command}
  4385. FlagOFF {Grue has taken player}
  4386. FlagOFF {Lamp is ON}
  4387. RoomNeedsLight
  4388. PrintMessage "It is too dangerous to move around in the dark!"
  4389. VerbIsDirection
  4390. DoneWithTurn
  4391. END_COMMAND
  4392.  
  4393. COMMAND ANY
  4394. FlagON {Continue Meta-command}
  4395. PrintMessage {Grue got you}
  4396. GoToRoom {Grue's Lair}
  4397. SendToRoom {Shining lantern} {Grue's Lair}
  4398. SendToRoom {Grue} {Grue's Lair}
  4399. SetVariableTo {Battery Life} 200
  4400. TurnFlagON {Grue has taken player}
  4401. TurnFlagON {Lamp is ON}
  4402. Destroy {Brass unlit lantern}
  4403. DoneWithTurn
  4404. END_COMMAND
  4405.  
  4406. MESSAGE {Grue gives you batteries}
  4407. The Grue says 'If your going to wander around the land of PORK, you had better
  4408. learn to carry plenty of spare batteries for your lantern.  Here, let me fix
  4409. you up.'  With that, he puts some new batteries in your lantern and sets the
  4410. lantern down.
  4411. END_MESSAGE
  4412.  
  4413. COMMAND ANY
  4414. FlagON {Grue has taken player}
  4415. FlagOFF {Lamp is ON}
  4416. RoomNeedsLight
  4417. PrintMessage {It is now dark}
  4418. PrintMessage {Grue gives you batteries}
  4419. DropIt {Shining lantern}
  4420. SetVariableTo {Battery Life} 200
  4421. DoneWithTurn
  4422. END_COMMAND
  4423.  
  4424. COMMAND ANY
  4425. InRoom {Live Sumo}
  4426. VerbIsDirection
  4427. PrintMessage {Sumo blocking exits}
  4428. DoneWithTurn
  4429. END_COMMAND
  4430.  
  4431. COMMAND ANY
  4432. InRoom {Live Cyclops}
  4433. VerbIsDirection
  4434. PrintMessage {Cyclops blocking exits}
  4435. DoneWithTurn
  4436. END_COMMAND
  4437.  
  4438. COMMAND ANY
  4439. AtLocation {Grue's Lair}
  4440. TurnFlagON {Grue Following Player}
  4441. END_COMMAND
  4442.  
  4443. COMMAND ANY
  4444. VerbIsDirection
  4445. FlagON {Grue Following Player}
  4446. PrintMessage "The infamous Grue scurries along close at your heels."
  4447. BlankLine
  4448. END_COMMAND
  4449.  
  4450. COMMAND ANY
  4451. AtLocation {Royal Chamber}
  4452. TurnFlagON {Frog Following Player}
  4453. END_COMMAND
  4454.  
  4455. COMMAND ANY
  4456. VerbIsDirection
  4457. FlagON {Frog Following Player}
  4458. PrintMessage "The little green frog hops along behind you."
  4459. BlankLine
  4460. END_COMMAND
  4461.  
  4462. COMMAND ANY
  4463. AtLocation {Polish Maze}
  4464. VerbIsDirection
  4465. PrintMessage {You wander around for a while}
  4466. LookAtRoom
  4467. END_COMMAND
  4468.  
  4469. COMMAND ANY
  4470. CounterGT {Turns with headache} 0
  4471. PrintMessage "Oh .... oh.... your head hurts....what a terrible headache...."
  4472. BlankLine
  4473. CounterEquals {Turns with headache} 6
  4474. TurnCounterOFF {Turns with headache}
  4475. Destroy {Headache}
  4476. END_COMMAND
  4477.  
  4478. COMMAND ANY
  4479. CounterGT {Turns player is high} 9
  4480. PrintMessage "The pot wears off."
  4481. BlankLine
  4482. TurnCounterOFF {Turns player is high}
  4483. DoneWithTurn
  4484. END_COMMAND
  4485.  
  4486. COMMAND ANY
  4487. CounterGT {Turns player is high} 0
  4488. CounterLT {Turns player is high} 10
  4489. VariableEquals {Joints Smoked} 1
  4490. PrintMessage "You are feeling pretty wasted."
  4491. BlankLine
  4492. END_COMMAND
  4493.  
  4494. COMMAND ANY
  4495. CounterGT {Turns player is high} 0
  4496. CounterLT {Turns player is high} 10
  4497. VariableEquals {Joints Smoked} 2
  4498. PrintMessage "You are getting tired."
  4499. BlankLine
  4500. END_COMMAND
  4501.  
  4502. COMMAND ANY
  4503. CounterGT {Turns player is high} 0
  4504. CounterLT {Turns player is high} 10
  4505. VariableEquals {Joints Smoked} 3
  4506. PrintMessage "You are very tired now."
  4507. BlankLine
  4508. END_COMMAND
  4509.  
  4510. MESSAGE {Fall asleep}
  4511. You finally fall from exhaustion.  Unfortunately, the boogie man eats you
  4512. in your sleep.  What a way to go!
  4513. END_MESSAGE
  4514.  
  4515. COMMAND ANY
  4516. CounterGT {Turns player is high} 0
  4517. CounterLT {Turns player is high} 10
  4518. VariableEquals {Joints Smoked} 4
  4519. PrintMessage {Fall asleep}
  4520. BlankLine
  4521. GotoRoom {Funeral}
  4522. DoneWithTurn
  4523. END_COMMAND
  4524.  
  4525. COMMAND ANY
  4526. CounterGT {Turns player is high} 0
  4527. CounterLT {Turns player is high} 10
  4528. AtLocation {Chili Contest}
  4529. OR
  4530. AtLocation {Smelly Room}
  4531. PrintMessage "Because you're so high, you don't notice the fatal reek in here."
  4532. BlankLine
  4533. GotoRoom {Funeral}
  4534. DoneWithTurn
  4535. END_COMMAND
  4536.  
  4537. COMMAND ANY
  4538. NOT IsCarrying {$500 bill}
  4539. NOT IsCarrying {Mary Jane}
  4540. IsSomeWhere {Tax Collector}
  4541. {Underground?}
  4542. IsCarryingTreasure 5
  4543. PrintMessage {Tax Collector steals treasures}
  4544. BlankLine
  4545. SendTreasuresToRoom {Tax Collector's Lair} 4
  4546. DoneWithTurn
  4547. END_COMMAND
  4548.  
  4549. COMMAND ANY PEOPLE
  4550. Present {People}
  4551. PrintMessage {People ignore you}
  4552. DoneWithTurn
  4553. END_COMMAND
  4554.  
  4555.  
  4556.  
  4557. MESSAGE {Funny Saying #1}
  4558. Time flies like an arrow.  However, fruit flies like bananas.
  4559. END_MESSAGE
  4560.  
  4561. MESSAGE {Funny Saying #2}
  4562. Reality is for people who can't face science fiction.
  4563. END_MESSAGE
  4564.  
  4565. MESSAGE {Funny Saying #3}
  4566. People with narrow minds usually have broad tongues.
  4567. END_MESSAGE
  4568.  
  4569. MESSAGE {Funny Saying #4}
  4570. A penny saved is ridiculous.
  4571. END_MESSAGE
  4572.  
  4573. MESSAGE {Funny Saying #5}
  4574. No problem is so formidable that you can't just run away from it.
  4575. END_MESSAGE
  4576.  
  4577. MESSAGE {Funny Saying #6}
  4578. Schizophrenia beats being alone.
  4579. END_MESSAGE
  4580.  
  4581. MESSAGE {Funny Saying #7}
  4582. Help stamp out and abolish redundancy!
  4583. END_MESSAGE
  4584.  
  4585. MESSAGE {Funny Saying #8}
  4586. While money can't buy happiness, it certainly lets you choose your own form
  4587. of misery.
  4588. END_MESSAGE
  4589.  
  4590. MESSAGE {Funny Saying #9}
  4591. Grues really aren't so bad (if you use lots of catsup or ketchup -- which ever
  4592. spelling you prefer).
  4593. END_MESSAGE
  4594.  
  4595. MESSAGE {Funny Saying #10}
  4596. Nuke the Whales!
  4597. END_MESSAGE
  4598.  
  4599. MESSAGE {Funny Saying #11}
  4600. More people have died in Teddy Kennedy's car than in nuclear power plants.
  4601. END_MESSAGE
  4602.  
  4603. MESSAGE {Funny Saying #12}
  4604. Remember, the fact that you're paranoid doesn't mean they're NOT out to get
  4605. you!
  4606. END_MESSAGE
  4607.  
  4608. MESSAGE {Funny Saying #13}
  4609. I'm all for computer dating, but I wouldn't want one to marry my sister.
  4610. END_MESSAGE
  4611.  
  4612. MESSAGE {Funny Saying #14}
  4613. Eschew Obfuscation!
  4614. END_MESSAGE
  4615.  
  4616. MESSAGE {Funny Saying #15}
  4617. F U CN RD THS U CNT SPL WRTH A DM!
  4618. END_MESSAGE
  4619.  
  4620. MESSAGE {Funny Saying #16}
  4621. God did not create the world in seven days.  He partied for six and then
  4622. pulled an all-nighter.
  4623. END_MESSAGE
  4624.  
  4625. MESSAGE {Funny Saying #17}
  4626. Time is just nature's way of keeping everything from happening at once.
  4627. END_MESSAGE
  4628.  
  4629. MESSAGE {Funny Saying #18}
  4630. If rabbits feet are so lucky, what happened to the rabbit?
  4631. END_MESSAGE
  4632.  
  4633. MESSAGE {Funny Saying #20}
  4634. You can fool some of the people all of the time, and all of the people some
  4635. of the time, but you can make a fool of yourself anytime.
  4636. END_MESSAGE
  4637.  
  4638. MESSAGE {Funny Saying #21}
  4639. Be alert!  We needs more lerts.
  4640. END_MESSAGE
  4641.  
  4642. MESSAGE {Funny Saying #22}
  4643. A closed mouth gathers no feet.
  4644. END_MESSAGE
  4645.  
  4646. MESSAGE {Funny Saying #23}
  4647. After all is said and done, usually more is said than done.
  4648. END_MESSAGE
  4649.  
  4650. MESSAGE {Funny Saying #24}
  4651. Nothing improves with age.
  4652. END_MESSAGE
  4653.  
  4654. MESSAGE {Funny Saying #25}
  4655. You've got to kiss a lot of ugly frogs before you find your handsome prince
  4656. (or princess).
  4657. END_MESSAGE
  4658.  
  4659. MESSAGE {Funny Saying #26}
  4660. Love is the triumph of imagination over intelligence.
  4661. END_MESSAGE
  4662.  
  4663. MESSAGE {Funny Saying #27}
  4664. Abstain from wine, women, and song; mostly song.
  4665. END_MESSAGE
  4666.  
  4667. MESSAGE {Funny Saying #28}
  4668. Beauty is skin deep; ugly goes right to the bone.
  4669. END_MESSAGE
  4670.  
  4671. MESSAGE {Funny Saying #29}
  4672. Never stand between a fire hydrant and a dog.
  4673. END_MESSAGE
  4674.  
  4675. MESSAGE {AGT Info}
  4676. This adventure game was created using the Adventure Game Toolkit.
  4677.  
  4678. A BRIEF OVERVIEW OF THE ADVENTURE GAME TOOLKIT
  4679.  
  4680. The ADVENTURE GAME TOOLKIT (AGT) is designed to allow a game designer/writer to
  4681. create and play his/her own high-quality text adventure games.  Once created,
  4682. these adventure games can be shared with and enjoyed by others -- even if they
  4683. do not have a copy of the Adventure Game Toolkit themselves.  Using AGT the
  4684. game developer can create two distinct levels of adventure games:
  4685.  
  4686.     STANDARD LEVEL games that require no programming experience (honestly!!),
  4687.     only a fertile imagination.  These Standard Level games only require that
  4688.     the game designer/writer generates the game using a word processor or text
  4689.     editor to describe the various locations, objects and results of actions
  4690.     that collectively make up the game.
  4691.  
  4692.     PROFESSIONAL LEVEL games that also make use of AGT's special adventure game
  4693.     metalanguage to create games as complex and rich as the game designer's
  4694.     imagination and prose style will allow.  These games should be technically
  4695.     comparable with the published text adventure games from firms like
  4696.     Infocom.
  4697.  
  4698. FEATURES OF THE ADVENTURE GAME TOOLKIT
  4699.  
  4700. AGT has a number of features that make it a very comprehensive adventure game
  4701. creation product.  Some of these key features are:
  4702.  
  4703.    *     "Look and feel" of Infocom adventure games with similar screen layout
  4704.          and standard vocabulary and routines.
  4705.  
  4706.    *     Large standard vocabulary with potential to define many more words
  4707.          unique to a specific adventure.  Typical games can have a vocabulary
  4708.          of 400 words or more.
  4709.  
  4710.    *     Sophisticated parser that can understand (1) complex input commands
  4711.          including pronouns (IT, HIM, HER, THEM, MY and ITS), and (2) compound
  4712.          commands separated by AND or THEN or punctuation symbols, and (3)
  4713.          commands addressed to characters within the game.  Here are a few
  4714.          examples of commands AGT can handle with ease:
  4715.  
  4716.               GET THE FLASH LIGHT AND THEN SWITCH IT ON
  4717.               PUT ON THE CLOAK, THEN EXAMINE IT; READ ITS LABEL
  4718.               PLACE THE GREEN ROCK AND THE SMALL PEBBLE BEHIND THE TREE
  4719.               ENTER THE HOUSE; GET ALL; EXIT; SOUTH; SOUTH THEN DOWN
  4720.               SULU, SET A COURSE FOR ALPHA 14
  4721.               SCOTTY, BEAM DOWN A TRICORDER AND THE QWERTY MODULE
  4722.               DROP THE FOOD, THE KEY AND THE BOTTLE THEN UNLOCK THE DOOR WITH
  4723.                    THE BRASS KEY AND THEN LEAVE
  4724.  
  4725.    *     Function and cursor keys predefined to input frequently used commands
  4726.          and move directions.
  4727.  
  4728.    *     SCRIPT and UNSCRIPT commands to echo game output to printer.
  4729.  
  4730.    *     Total compatibility with the last version of Generic Adventure Game
  4731.          System (GAGS version 1.07) and GAGS' large established library of
  4732.          text adventures.  GAGS was the precursor to AGT.
  4733.  
  4734. TO LEARN MORE ABOUT THE ADVENTURE GAME TOOLKIT
  4735.  
  4736. Look for a file named AGTBLURB.TXT on this disk or the place/service where you
  4737. got this disk.  This file is a short description of the features of the
  4738. ADVENTURE GAME TOOLKIT.  This file presents an overview of AGT's special
  4739. metalanguage for creating PROFESSIONAL LEVEL games, plus presents a complete
  4740. STANDARD LEVEL adventure created without any programming.
  4741.  
  4742. HOW TO GET THE LATEST VERSION OF THE ADVENTURE GAME TOOLKIT AND SAMPLE GAMES
  4743.  
  4744. For only $20.00 you can be a "registered" user and receive the latest version
  4745. of AGT plus the source code for this adventure game and others just as good.
  4746. Registered users can also order a printed AGT manual that reveals many of the
  4747. secrets of the "Great Adventure Masters" for creating clever and fun adventure
  4748. games.  Registered users can also order the Turbo PASCAL source code for AGT
  4749. for only $50.00!
  4750.  
  4751. Just write or call:
  4752.  
  4753.     Softworks
  4754.     43064 Via Moraga
  4755.     Mission San Jose, California  94539
  4756.  
  4757.     VISA or MasterCard accepted for telephone orders
  4758.     (415) 659-0533   12:00 Noon to 9:00 PM -- PST only
  4759.  
  4760. If you wish to learn more AGT products and prices, just enter the command:
  4761.  
  4762. PRINT ORDER FORM
  4763.  
  4764. (By the way, this will be the last time you get this blatant advertisement.)
  4765.  
  4766. END_MESSAGE
  4767.  
  4768. MESSAGE {Do you really want to quit?}
  4769. Listen buddy, this is really a fantastic adventure so I'll give you another
  4770. chance.  Do you really really really really want to quit?
  4771. END_MESSAGE
  4772.  
  4773. MESSAGE {Thank you for playing PORK}
  4774.  
  4775. Thank you for playing PORK!
  4776. END_MESSAGE
  4777.  
  4778. MESSAGE {I didn't think you really wanted to quit!}
  4779. I didn't think you really wanted to quit!
  4780.  
  4781. END_MESSAGE
  4782.  
  4783. ;QUIT COMMANDS
  4784.  
  4785. FLAG {Quitting}
  4786.  
  4787. COMMAND QUIT
  4788. FlagOn {Quitting}
  4789. DoneWithTurn
  4790. END_COMMAND
  4791.  
  4792. COMMAND QUIT
  4793. PrintMessage {Do you really want to quit?}
  4794. PromptForYes (* Get YES or NO answer from keyboard *)
  4795. PrintMessage {Thank you for playing PORK}
  4796. EndGame (* OK, player entered YES -- so let's quit *)
  4797. TurnFlagON {Quitting}
  4798. ReDirectTo SCORE
  4799. END_COMMAND
  4800.  
  4801. COMMAND QUIT
  4802. TurnFlagOFF {Quitting}
  4803. PrintMessage {I didn't think you really wanted to quit!}
  4804. BlankLine
  4805. ReDirectTo LOOK
  4806. END_COMMAND
  4807.  
  4808. COMMAND SCORE
  4809. BlankLine
  4810. ScoreLT 16
  4811. PrintMessage "Your score qualifies you to the title of 'Dainty Eater'."
  4812. END_COMMAND
  4813.  
  4814. COMMAND SCORE
  4815. ScoreLT 26
  4816. ScoreGT 15
  4817. PrintMessage "Your score qualifies you to the title of 'Gourmet'."
  4818. END_COMMAND
  4819.  
  4820. COMMAND SCORE
  4821. ScoreLT 36
  4822. ScoreGT 25
  4823. PrintMessage "Your score qualifies you to the title of 'Snobby Gourmet'."
  4824. END_COMMAND
  4825.  
  4826. COMMAND SCORE
  4827. ScoreLT 46
  4828. ScoreGT 35
  4829. PrintMessage "Your score qualifies you to the title of 'Professional Gourmet'."
  4830. END_COMMAND
  4831.  
  4832. COMMAND SCORE
  4833. ScoreLT 56
  4834. ScoreGT 45
  4835. PrintMessage "Your score qualifies you to the title of 'Food Critic'."
  4836. END_COMMAND
  4837.  
  4838. COMMAND SCORE
  4839. ScoreLT 66
  4840. ScoreGT 55
  4841. PrintMessage "Your score qualifies you to the title of 'French Chef'."
  4842. END_COMMAND
  4843.  
  4844. COMMAND SCORE
  4845. ScoreLT 76
  4846. ScoreGT 65
  4847. PrintMessage "Your score qualifies you to the title of 'Averige Pigo'."
  4848. END_COMMAND
  4849.  
  4850. COMMAND SCORE
  4851. ScoreLT 86
  4852. ScoreGT 75
  4853. PrintMessage "Your score qualifies you to the title of 'Ill-mannered Slob'."
  4854. END_COMMAND
  4855.  
  4856. COMMAND SCORE
  4857. ScoreLT 96
  4858. ScoreGT 85
  4859. PrintMessage "Your score qualifies you to the title of 'Human Garbage Disposal'."
  4860. END_COMMAND
  4861.  
  4862. COMMAND SCORE
  4863. ScoreLT 126
  4864. ScoreGT 95
  4865. BlankLine
  4866. PrintMessage "Your score qualifies you to the title of 'Human Vacuum Cleaner'."
  4867. END_COMMAND
  4868.  
  4869. COMMAND SCORE
  4870. ScoreLT 156
  4871. ScoreGT 125
  4872. PrintMessage "Your score qualifies you to the title of 'PORKer'."
  4873. END_COMMAND
  4874.  
  4875. COMMAND SCORE
  4876. ScoreLT 1000
  4877. ScoreGT 155
  4878. PrintMessage "Your score qualifies you to the title of 'Master PORKer'."
  4879. END_COMMAND
  4880.  
  4881. COMMAND SCORE
  4882. BlankLine
  4883. FlagOn {Quitting}
  4884. ReDirectTo QUIT
  4885. END_COMMAND
  4886.  
  4887.  
  4888. COMMAND DEBUG
  4889. ToggleFlag 0
  4890. DoneWithTurn
  4891. END_COMMAND
  4892.  
  4893. INSTRUCTIONS
  4894.  
  4895. ------------------------------
  4896. How To Play The PORK Adventure
  4897. ------------------------------
  4898.  
  4899.  
  4900. COMMANDS AND VOCABULARY:
  4901.  
  4902.       The PORK Adventure Game understands a wide variety of commands.
  4903.       However, it has only a limited vocabulary, totaling approximately four
  4904.       hundred words, so it can get confused.  If you give it a word that it
  4905.       doesn't understand, it will tell you what word it doesn't know.  Try
  4906.       entering your command again using a different word in place of the one
  4907.       the game objected to.
  4908.  
  4909.       Your commands should generally be in the format:
  4910.  
  4911.        <verb> <(multiple) noun phrase(s)> <preposition> <noun phrase/object>
  4912.  
  4913.       Some (hypothetical) examples of valid commands:
  4914.  
  4915.          PLACE A RED ROCK IN THE SMALL BOWL
  4916.          PUT THE GREEN ROCK AND THE SMALL PEBBLE BEHIND THE OAK TREE
  4917.          READ MY POETRY BOOK
  4918.          SWIM IN THE SWIMMING POOL
  4919.          EXAMINE THE GOLD RING, THE DWARF AND THE SILVER NECKLACE
  4920.          EAT THE CELERY, THE TUNA, THE APPLE AND THE ONION
  4921.          THROW THE BATTLE AXE AND THE LARGE ROCK AT THE WEREWOLF
  4922.          SHOOT THE BURGLAR WITH THE REVOLVER
  4923.          ATTACK HIM
  4924.            ("HIM" will refer to last noun mentioned, e.g., the burglar)
  4925.          FIRE THE LASER PISTOL AT THE ALIEN MUTANT
  4926.          GET THE BOOK (also: TAKE THE BOOK)
  4927.          READ IT
  4928.            ("IT" will refer to last noun mentioned, e.g., the book)
  4929.          GET ALL (will get everything movable at the current location)
  4930.          GET THE KEYS, BOTTLE, FOOD AND THE CLOAK
  4931.          EXAMINE THE KEYS, BOTTLE, FOOD AND CLOAK
  4932.          PUSH THE RED BUTTON AND THE GREEN BUTTON
  4933.          UNLOCK THE FILE CABINET WITH THE STEEL KEY
  4934.          JUMP THROUGH THE OPENING
  4935.          JUMP OVER THE LOG
  4936.          NORTH
  4937.          SOUTHWEST
  4938.          PLACE AN AXE AND THE SHIELD NEXT TO THE BIG TREE
  4939.          PUT THE FOOD ON THE KITCHEN TABLE
  4940.          TURN ON THE FLASHLIGHT
  4941.          LIGHT THE TORCH WITH THE WOODEN MATCHES
  4942.          SCREAM AT THE UGLY TROLL
  4943.          CLIMB UP THE LADDER
  4944.          EXTINGUISH THE FIRE (or PUT OUT THE FIRE)
  4945.          DRINK THE WHITE WINE
  4946.          THROW THE FIRE WOOD IN THE STOVE
  4947.          PULL THE BELL CORD
  4948.          WEAR THE STUPID HAT (also: PUT ON THE STUPID HAT)
  4949.          TAKE OFF THE HAT (also: REMOVE THE HAT)
  4950.          NE (for NORTHEAST)
  4951.          DROP THE KEY AND THE BOTTLE
  4952.          ENTER THE CAVE
  4953.          XYZZY (i.e., a "magic" word)
  4954.          TURN THE DOORKNOB
  4955.          PLAY WITH THE DOG
  4956.          TALK TO (or TALK WITH) THE OLD MAN (ABOUT THE WEATHER)
  4957.          TELL JEFF ABOUT THE SWORD
  4958.          ASK JODIE ABOUT THE CRIME
  4959.  
  4960.       Compound commands can be created by connecting single commands (like
  4961.       those above) with "AND", "THEN" or the punctuation symbols "," or ";" to
  4962.       connect two or more separate commands.  However, "end-of-sentence"
  4963.       punctuation symbols like ".", "!" and "?" should not be used.  Below are
  4964.       a few examples of valid compound commands:
  4965.  
  4966.          TURN THE DOORKNOB THEN ENTER THE CAVE
  4967.          CLIMB DOWN THE LADDER THEN SOUTH, WEST AND NORTHWEST
  4968.          GET THE CLOAK AND THEN EXAMINE IT; READ THE LABEL
  4969.          DROP THE FOOD AND THE BOTTLE THEN UNLOCK THE DOOR AND THEN LEAVE
  4970.          GET THE TORCH, LIGHT IT WITH THE WOODEN MATCHES THEN EXAMINE IT
  4971.  
  4972.       If the game understands all of the words in your command, but still
  4973.       seems confused by the command -- then try to say the same thing using
  4974.       fewer words and a simpler sentence.  When in doubt, simplify your
  4975.       commands as much as possible.  This also saves typing effort.
  4976.  
  4977.  
  4978. SPECIAL COMMANDS:
  4979.  
  4980.       The game uses a number of special commands for various "housekeeping"
  4981.       chores.  These are all pretty standard for most adventure games,
  4982.       specifically:
  4983.  
  4984.          HELP          May (or may not) give you a hint.
  4985.  
  4986.          SCORE         Will summarize your progress, so far.
  4987.  
  4988.          INVENTORY     Will display a list of the items you are carrying, and
  4989.                        those items you are wearing.
  4990.  
  4991.          BRIEF         Will cause location descriptions to be brief.
  4992.  
  4993.          VERBOSE       Will cause location descriptions to be verbose.
  4994.  
  4995.          LOOK          Will give you a full (verbose) description of
  4996.                        your current location.
  4997.  
  4998.          AGAIN         Will cause the last command that was given to be
  4999.                        repeated.
  5000.  
  5001.          LIST EXITS    Will list the obvious (visible) exits from your current
  5002.                        location.  There may be other ways to exit the location
  5003.                        -- but they may not be obvious.
  5004.  
  5005.          SAVE          Will save the current game status on disk.
  5006.  
  5007.          RESTORE       Will restore a previously saved game from disk.
  5008.  
  5009.          SCRIPT        Causes output to go to both the screen and a printer
  5010.                        (using the LP1 port).
  5011.  
  5012.          UNSCRIPT      Causes output to go to the screen (only).
  5013.  
  5014.          QUIT          Quits the current game session.  Always exit using QUIT
  5015.                        -- so the game can erase some temporary data files and
  5016.                        save disk space!
  5017.  
  5018.  
  5019. FUNCTION AND CURSOR KEYS:
  5020.  
  5021.       The function keys have been predefined to stand for several of the most
  5022.       frequently used commands.  Similarly, the cursor keys have been
  5023.       predefined to correspond to the appropriate compass directions, i.e.,
  5024.       the up arrow is NORTH, the PgDn key is SOUTHEAST, the "-" key is UP, the
  5025.       "+" key is DOWN, the Ins key is ENTER, the Del key is EXIT, and so
  5026.       forth.
  5027.  
  5028.       Hitting the '?' key will display a diagram of the definitions for all of
  5029.       the function and cursor keys if you need a reminder.
  5030.  
  5031.  
  5032. SOLUTION AVAILABLE:
  5033.  
  5034.       The PORK Adventure is a relatively easy adventure -- so you should be
  5035.       able to solve it yourself (after a lot of trial and error).  However, if
  5036.       you get totally frustrated and/or really stuck and want to give up, a
  5037.       complete solution is available for no charge.
  5038.  
  5039.       If you give up, then just send a self-addressed stamped envelope (with
  5040.       the correct postage) to:
  5041.  
  5042.          David Malmberg
  5043.          43064 Via Moraga
  5044.          Mission San Jose, California
  5045.                              94539
  5046.  
  5047.       Be sure to enclose a note requesting a solution to the PORK Adventure.
  5048.  
  5049.       DO NOT (REPEAT -- DO NOT) EVER CALL ON THE TELEPHONE TO ASK WHAT TO DO
  5050.       WITH THE BABEL FISH, OR FOR SOME OTHER HINT!!!  I will be glad to provide
  5051.       a solution, but I want to do it by letter, not by phone!!!
  5052.  
  5053. END_INSTRUCTIONS
  5054.  
  5055.